4.5.1.1 (a+b sec)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    456818,       9070]
NotebookOptionsPosition[    445674,       8781]
NotebookOutlinePosition[    447334,       8834]
CellTagsIndexPosition[    447291,       8831]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9, 
   3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
   3.575853290447487*^9, 3.575853290447487*^9}, {3.59677884868538*^9, 
   3.59677885607539*^9}, {3.6058945381758122`*^9, 3.6058945724490724`*^9}, {
   3.6080751006970787`*^9, 3.6080751257671137`*^9}, {3.6097404905638475`*^9, 
   3.6097405432739215`*^9}, {3.609869630043415*^9, 3.609869630043415*^9}, {
   3.6117955383803935`*^9, 3.6117955383803935`*^9}, {3.623961706089922*^9, 
   3.6239617076499243`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561758454918521*^9, 3.561758464358534*^9}, {
   3.5617585090285964`*^9, 3.5617585090285964`*^9}, 3.562030415889578*^9, 
   3.562088059612624*^9, 3.562089480764614*^9, {3.562089547444707*^9, 
   3.5620895531647153`*^9}, 3.5633195983876543`*^9, 3.5967359959525976`*^9, 
   3.611791784860116*^9, 3.6239617458199778`*^9, 3.6239620600104175`*^9, 
   3.6239625742232924`*^9, 3.6239630463839536`*^9, 3.6648277025150537`*^9, {
   3.6648278004536552`*^9, 3.6648278038418493`*^9}, {3.664838078733539*^9, 
   3.6648380907582273`*^9}, 3.675706738146452*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561758454918521*^9, 3.561758464358534*^9}, {
   3.5617585090285964`*^9, 3.5617585090285964`*^9}, 3.562030415889578*^9, 
   3.562088059612624*^9, 3.562089480764614*^9, {3.562089547444707*^9, 
   3.5620895531647153`*^9}, 3.5633195983876543`*^9, 3.5967359959525976`*^9, 
   3.611791784860116*^9, 3.6239617458199778`*^9, 3.6239620600104175`*^9, 
   3.6239625742232924`*^9, 3.6239630463839536`*^9, 3.6648277025150537`*^9, {
   3.6648278004536552`*^9, 3.6648278038418493`*^9}, {3.664838125045188*^9, 
   3.664838171806863*^9}, {3.664838302304327*^9, 3.664838304611459*^9}, {
   3.664838580281226*^9, 3.664838580281226*^9}, {3.6648548420507493`*^9, 
   3.6648548427767906`*^9}, 3.6757067645439615`*^9, {3.6757071051344423`*^9, 
   3.675707107142557*^9}, {3.692560382008984*^9, 3.692560411939026*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       FractionBox["n", "2"], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, {3.541555421591781*^9, 
   3.5415554284869933`*^9}, {3.541555475521076*^9, 3.5415554813086863`*^9}, 
   3.5416184645165453`*^9, {3.541623979263562*^9, 3.5416239920741987`*^9}, {
   3.541650080259365*^9, 3.5416500849993715`*^9}, 3.541650399669812*^9, 
   3.5416505520600257`*^9, 3.541650693810224*^9, 3.560533154102931*^9, 
   3.5605392631514835`*^9, 3.5608121174215755`*^9, 3.560819475996877*^9, 
   3.560819541596969*^9, {3.560819614537071*^9, 3.560819614537071*^9}, {
   3.560820223717924*^9, 3.5608202239079247`*^9}, 3.5608202925480204`*^9, {
   3.5620895553747187`*^9, 3.56208956387473*^9}, {3.562089607374791*^9, 
   3.5620896116547976`*^9}, 3.563319598397654*^9, {3.5634867856586103`*^9, 
   3.5634867866986117`*^9}, 3.6117917865601187`*^9, 3.6239617471899796`*^9, 
   3.623962060060417*^9, 3.6239630464239535`*^9, 3.664827704952193*^9, 
   3.664827809781189*^9, 3.6648381755710783`*^9, 3.6648383106718054`*^9, {
   3.664838381922881*^9, 3.664838381922881*^9}, 3.675706766000045*^9, {
   3.6757068469406743`*^9, 3.675706849120799*^9}, 3.675707112737877*^9, 
   3.6925603934890003`*^9, {3.692560429979051*^9, 3.6925604345090575`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then  ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sec", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], "n"], "\[Equal]", 
   RowBox[{
    FractionBox["1", "d"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}], "2"]}], ")"}], 
     RowBox[{
      FractionBox["n", "2"], "-", "1"}]], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Tan", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9, {
   3.4990190900957537`*^9, 3.4990190900957537`*^9}, {3.499019132685813*^9, 
   3.499019132685813*^9}, {3.499019483866305*^9, 3.4990194928763175`*^9}, {
   3.515621260576377*^9, 3.5156212760232606`*^9}, {3.5156213185296917`*^9, 
   3.515621320173786*^9}, {3.5608198944674635`*^9, 3.5608199099574847`*^9}, {
   3.5608199502875414`*^9, 3.5608199502875414`*^9}, {3.5608200091576233`*^9, 
   3.560820014867632*^9}, {3.563319598407654*^9, 3.563319598417654*^9}, {
   3.5633255535659914`*^9, 3.5633255535659914`*^9}, {3.6239620600704174`*^9, 
   3.6239620600804176`*^9}, {3.6239623381279616`*^9, 
   3.6239623381279616`*^9}, {3.6239630464339533`*^9, 3.6239630464439535`*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["n", "2"], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, 3.497576946310916*^9, {
   3.515621399722336*^9, 3.515621399898346*^9}, {3.5620896155848026`*^9, 
   3.5620896155848026`*^9}, 3.5620896625348682`*^9, {3.6648383939535685`*^9, 
   3.6648383939535685`*^9}, {3.692560444909072*^9, 3.6925604702491074`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sec", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "d"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["x", "2"]}], ")"}], 
        RowBox[{
         FractionBox["n", "2"], "-", "1"}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"Tan", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.4990190900957537`*^9, 3.499019132685813*^9, {
   3.499019574686432*^9, 3.4990195851264467`*^9}, {3.515362991802678*^9, 
   3.5153629954526834`*^9}, {3.51536306437278*^9, 3.5153630656927814`*^9}, {
   3.515621409121874*^9, 3.515621460616819*^9}, 3.560819865737423*^9, 
   3.5608200206376395`*^9, {3.5633195984276543`*^9, 3.563319598437654*^9}, 
   3.5633256063360653`*^9, {3.623962060090418*^9, 3.6239620601004176`*^9}, 
   3.623962339047963*^9, {3.6239630464539537`*^9, 3.6239630464539537`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"csc", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "n_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", "d"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"ExpandIntegrand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"x", "^", "2"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"n", "/", "2"}], "-", "1"}], ")"}]}], ",", "x"}], "]"}], 
        ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"Cot", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"n", "/", "2"}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, {3.4979216145737824`*^9, 3.4979216447910357`*^9}, 
   3.497921964482397*^9, {3.499114117121869*^9, 3.499114132701891*^9}, 
   3.4991143537822003`*^9, {3.515596335530735*^9, 3.5155963364979367`*^9}, 
   3.5156213787771378`*^9, 3.549078125175458*^9, {3.560819793707322*^9, 
   3.5608198096473446`*^9}, 3.560820032187656*^9, {3.5620895770947485`*^9, 
   3.562089588514765*^9}, {3.563319598457654*^9, 3.563319598467654*^9}, 
   3.5633254762358828`*^9, 3.56410895041569*^9, 3.6239620844804516`*^9, 
   3.6239622944539003`*^9, {3.623962351927981*^9, 3.623962356047987*^9}, {
   3.623963070413987*^9, 3.623963084614007*^9}, 3.62396324118237*^9, 
   3.664838424139295*^9, 3.692560489159134*^9, {3.715458537790292*^9, 
   3.7154585425145617`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, {3.541555421591781*^9, 
   3.5415554284869933`*^9}, {3.541555475521076*^9, 3.5415554813086863`*^9}, 
   3.5416184645165453`*^9, {3.541623979263562*^9, 3.5416239920741987`*^9}, {
   3.541650080259365*^9, 3.5416500849993715`*^9}, 3.541650399669812*^9, 
   3.5416505520600257`*^9, 3.541650693810224*^9, 3.560533154102931*^9, 
   3.5605392631514835`*^9, 3.5608121174215755`*^9, 3.560819475996877*^9, 
   3.5608195453569746`*^9, {3.560819620147079*^9, 3.560819620147079*^9}, {
   3.560820134487799*^9, 3.560820134487799*^9}, {3.5608202295779324`*^9, 
   3.5608202297579327`*^9}, 3.5608202932580214`*^9, {3.5620895568347206`*^9, 
   3.562089562044728*^9}, {3.5620896319448256`*^9, 3.562089636484832*^9}, 
   3.563319598477654*^9, 3.5967360159126253`*^9, 3.611791787090119*^9, 
   3.62396174765998*^9, 3.6239620601104174`*^9, 3.623962580893302*^9, 
   3.6239630464639535`*^9, 3.6648277056612334`*^9, 3.66482781085225*^9, 
   3.6648381766661406`*^9, 3.6648383116918635`*^9, {3.66483846075939*^9, 
   3.6648384783403955`*^9}, {3.6648385215598674`*^9, 3.664838522110899*^9}, 
   3.6757067664720716`*^9, 3.6757071136599293`*^9, 3.692560395409003*^9, {
   3.6925605335091963`*^9, 3.6925605335091963`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: CRC 313", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9, 
   3.4975766144178452`*^9, 3.4990195622564144`*^9, 3.515621639406045*^9, {
   3.56332515982544*^9, 3.563325160345441*^9}, {3.5633252496255655`*^9, 
   3.563325268905593*^9}, {3.563325313585655*^9, 3.5633253178956614`*^9}}],

Cell["Reference: CRC 309", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9, 
   3.4975766144178452`*^9, 3.4979220484261446`*^9, 3.4991144634223537`*^9, 
   3.515621682131489*^9, {3.563325171125456*^9, 3.563325171675456*^9}, {
   3.5633252591855793`*^9, 3.563325261365582*^9}, {3.5633253222856674`*^9, 
   3.563325325225672*^9}}],

Cell[TextData[{
 "Derivation: Secant recurrence 3a with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "->", "0"}], ",", 
   RowBox[{"B", "\[Rule]", "a"}], ",", 
   RowBox[{"C", "\[Rule]", "d"}], ",", 
   RowBox[{"m", "\[Rule]", 
    RowBox[{"m", "-", "1"}]}], ",", 
   RowBox[{"n", "\[Rule]", 
    RowBox[{"-", "1"}]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.563034117071627*^9, 3.563034127791642*^9}, 
   3.563037578736473*^9, {3.5633254287758164`*^9, 3.563325429735818*^9}, {
   3.623962364997999*^9, 3.623962364997999*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{"n", ">", "1"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.560820137107803*^9, 3.560820137107803*^9}, {
   3.5620896408248377`*^9, 3.562089658874863*^9}, {3.664838488925001*^9, 
   3.664838488925001*^9}, {3.664838529315311*^9, 3.664838529315311*^9}, {
   3.6925605360291996`*^9, 3.6925605360291996`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "-", "1"}]]}], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["b", "2"], 
     RowBox[{"(", 
      RowBox[{"n", "-", "2"}], ")"}]}], 
    RowBox[{"n", "-", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
   3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
   3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
   3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
   3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9}, 
   3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9, 
   3.515623587913493*^9, {3.562428183083187*^9, 3.5624281855131903`*^9}, {
   3.5624285583637123`*^9, 3.562428569553728*^9}, {3.5624289186242166`*^9, 
   3.562428920594219*^9}, {3.5633262709869957`*^9, 3.5633262710169954`*^9}, 
   3.5634642967565536`*^9, {3.563464329655435*^9, 3.563464329674436*^9}, 
   3.5634656273176575`*^9, {3.5634657073732357`*^9, 3.563465711426468*^9}, {
   3.563465778136284*^9, 3.5634657806594276`*^9}, {3.5674758028104687`*^9, 
   3.5674758041904707`*^9}, {3.567476690211711*^9, 3.5674766953517184`*^9}, {
   3.6239620601104174`*^9, 3.623962060130418*^9}, 3.6239623661680007`*^9, {
   3.6239626033133335`*^9, 3.623962623803362*^9}, {3.6239630464739532`*^9, 
   3.6239630464839535`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b_.", "*", 
       RowBox[{"csc", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"n", "-", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, {3.4979216145737824`*^9, 
   3.4979216447910357`*^9}, 3.497922058394562*^9, {3.4991141171318693`*^9, 
   3.499114132711891*^9}, 3.49911445341234*^9, 3.515621674271039*^9, {
   3.5156228558636227`*^9, 3.5156228620559764`*^9}, 3.5156233221502924`*^9, 
   3.5156235790579867`*^9, {3.5608205388783655`*^9, 3.5608205625683985`*^9}, 
   3.5620911647869716`*^9, 3.5624279822829056`*^9, {3.5624281928832006`*^9, 
   3.56242819924321*^9}, {3.5624285964037657`*^9, 3.562428602533774*^9}, {
   3.5624287091739235`*^9, 3.5624287091939235`*^9}, {3.562428931114234*^9, 
   3.5624289337742376`*^9}, 3.5624313707676497`*^9, {3.5633262710569954`*^9, 
   3.5633262710869956`*^9}, 3.5633291917110844`*^9, 3.5634643845285735`*^9, 
   3.563464466267249*^9, {3.5634645310729556`*^9, 3.5634645542182794`*^9}, {
   3.5634645851600494`*^9, 3.563464585164049*^9}, 3.5634653497927837`*^9, {
   3.5634658129432745`*^9, 3.5634658182015753`*^9}, 3.564109657250682*^9, {
   3.596736071332703*^9, 3.5967360807227163`*^9}, {3.6239620845104513`*^9, 
   3.623962084530452*^9}, 3.6239622944839*^9, {3.6239623737480116`*^9, 
   3.623962374268012*^9}, 3.6239626664934216`*^9, {3.6239626994634676`*^9, 
   3.62396270132347*^9}, {3.6239627899635944`*^9, 3.6239627947836013`*^9}, {
   3.623963070433987*^9, 3.6239630846340075`*^9}, 3.623963253702388*^9, 
   3.6648385500384965`*^9, 3.6925605237391825`*^9, {3.7154585654078712`*^9, 
   3.7154585685910535`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416475828058686`*^9, 
   3.541647583085869*^9}, {3.5605378008794365`*^9, 3.5605378010494366`*^9}, {
   3.560538011299731*^9, 3.560538012419732*^9}, {3.560538084979834*^9, 
   3.560538086459836*^9}, 3.560812117891576*^9, {3.5608206072284613`*^9, 
   3.5608206196984787`*^9}, {3.5608207431986513`*^9, 3.5608207484086585`*^9}, 
   3.562089889175186*^9, {3.5620902904057474`*^9, 3.5620902918057494`*^9}, 
   3.562090929376642*^9, 3.5633195988076544`*^9, 3.5983781842106094`*^9, 
   3.611791788730121*^9, 3.623961749109982*^9, 3.6239620601904173`*^9, 
   3.623962813473627*^9, 3.6239630465139537`*^9, 3.664827708801413*^9, 
   3.664827814835478*^9, {3.664838178614252*^9, 3.6648382084149566`*^9}, {
   3.664838621055558*^9, 3.664838625525814*^9}, {3.664854896312853*^9, 
   3.6648548967818794`*^9}, 3.675706768482187*^9, {3.6757071018192525`*^9, 
   3.675707103139328*^9}, 3.692560384198987*^9, {3.692560842429629*^9, 
   3.692560842429629*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: CRC 305", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9, 
   3.4975766222178564`*^9, {3.515622758908077*^9, 3.5156227652274384`*^9}, {
   3.515623278601802*^9, 3.5156232989499655`*^9}, 3.5156237051762*^9, {
   3.56332598139659*^9, 3.563325987756599*^9}}],

Cell["Reference: CRC 299", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9, 
   3.4975766222178564`*^9, {3.515622758908077*^9, 3.5156227652274384`*^9}, {
   3.515623278601802*^9, 3.5156232989499655`*^9}, {3.5156233384022217`*^9, 
   3.5156233496358643`*^9}, 3.515623693824551*^9, {3.563326006456625*^9, 
   3.563326014236636*^9}}],

Cell[TextData[{
 "Derivation: Secant recurrence 1a with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "\[Rule]", "1"}], ",", 
   RowBox[{"B", "\[Rule]", "0"}], ",", 
   RowBox[{"C", "\[Rule]", "0"}], ",", 
   RowBox[{"n", "\[Rule]", "0"}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.5630346364023542`*^9, 3.563034660882388*^9}, {
   3.5630373965362186`*^9, 3.5630374009562244`*^9}, {3.563325834936385*^9, 
   3.5633258371663885`*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{"n", "<", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.515622784285528*^9, 3.5156227858816195`*^9}, 
   3.515622836578519*^9, {3.5156236334840994`*^9, 3.5156236340031295`*^9}, {
   3.5156237450384803`*^9, 3.5156237484156733`*^9}, {3.6648386422137685`*^9, 
   3.6648386422137685`*^9}, {3.692560844579632*^9, 3.692560844579632*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            RowBox[{"Sec", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"n", "+", "1"}]]}], 
        RowBox[{"b", " ", "d", " ", "n"}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"(", 
     RowBox[{"n", "+", "1"}], ")"}], 
    RowBox[{
     SuperscriptBox["b", "2"], " ", "n"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
   3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
   3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
   3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
   3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9}, 
   3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9, 
   3.515623587913493*^9, 3.515623801296698*^9, {3.562428224643245*^9, 
   3.562428226583248*^9}, {3.5624286471138363`*^9, 3.562428653333845*^9}, {
   3.562428696903906*^9, 3.562428696913906*^9}, {3.562428974824295*^9, 
   3.5624289763042974`*^9}, {3.5624331981782155`*^9, 3.562433200068218*^9}, {
   3.563326271116996*^9, 3.5633262711469955`*^9}, {3.5634643297174387`*^9, 
   3.5634643428491898`*^9}, {3.563465867467393*^9, 3.563465869701521*^9}, {
   3.5674758081704764`*^9, 3.567475809600478*^9}, {3.567476962812093*^9, 
   3.5674769677921*^9}, {3.6239620602004175`*^9, 3.6239620602104177`*^9}, {
   3.623962399642048*^9, 3.623962409422062*^9}, {3.6239628212236385`*^9, 
   3.6239628341536565`*^9}, {3.6239630465239534`*^9, 
   3.6239630465339537`*^9}, {3.6239633522225256`*^9, 3.62396335516253*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b_.", "*", 
       RowBox[{"csc", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "d", "*", "n"}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", "n"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"n", "+", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, {3.4979216145737824`*^9, 
   3.4979216447910357`*^9}, 3.497922058394562*^9, {3.4991141171318693`*^9, 
   3.499114132711891*^9}, 3.49911445341234*^9, 3.515621674271039*^9, {
   3.5156228558636227`*^9, 3.5156228620559764`*^9}, 3.5156233221502924`*^9, 
   3.5156235790579867`*^9, 3.515623685252061*^9, {3.5608205459283752`*^9, 
   3.5608205510483823`*^9}, 3.562091167056975*^9, 3.5624279835029078`*^9, {
   3.5624282327032566`*^9, 3.562428236833262*^9}, {3.562428664573861*^9, 
   3.56242867091387*^9}, {3.5624287092239237`*^9, 3.562428709233924*^9}, {
   3.56242898565431*^9, 3.5624289883843145`*^9}, 3.562431371947651*^9, {
   3.562433213088237*^9, 3.56243321535824*^9}, {3.5633262711869955`*^9, 
   3.563326271216996*^9}, {3.5633292459111605`*^9, 3.563329248941165*^9}, 
   3.5634644663132515`*^9, {3.5634645310999575`*^9, 3.5634645542342806`*^9}, {
   3.5634645851880507`*^9, 3.563464585195051*^9}, 3.563465349837786*^9, {
   3.563465904084487*^9, 3.5634659198393884`*^9}, 3.564109657290682*^9, 
   3.5967361985328813`*^9, {3.6239620845704517`*^9, 3.6239620845904517`*^9}, 
   3.6239622945339003`*^9, {3.623962418992075*^9, 3.623962419612076*^9}, 
   3.6239626679034233`*^9, {3.623962706643478*^9, 3.623962708583481*^9}, {
   3.6239628512836804`*^9, 3.623962856223687*^9}, {3.623963070483987*^9, 
   3.623963084664007*^9}, 3.623963273502415*^9, 3.6239633785325623`*^9, 
   3.66483865570254*^9, 3.6925608338096166`*^9, {3.715458585251006*^9, 
   3.715458593614485*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Sec", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, {3.541555421591781*^9, 
   3.5415554284869933`*^9}, {3.541555475521076*^9, 3.5415554813086863`*^9}, 
   3.5416184645165453`*^9, {3.541623979263562*^9, 3.5416239920741987`*^9}, {
   3.541650080259365*^9, 3.5416500849993715`*^9}, 3.541650399669812*^9, 
   3.5416505520600257`*^9, 3.541650693810224*^9, 3.560533154102931*^9, 
   3.5605392631514835`*^9, 3.5608121174215755`*^9, 3.560819475996877*^9, 
   3.5608196010970526`*^9, 3.5608202912380185`*^9, 3.5633195982776537`*^9, 
   3.611791784120115*^9, 3.623961745289977*^9, 3.6239620599504175`*^9, 
   3.6239630463139534`*^9, 3.6648277003329287`*^9, {3.664827817113608*^9, 
   3.664827819697756*^9}, {3.664838236715575*^9, 3.6648382403017807`*^9}, 
   3.675706763568906*^9, 3.675707130507893*^9, {3.6757071724952946`*^9, 
   3.675707172949321*^9}, 3.692560385278989*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.526.9, CRC 294, A&S 4.3.117", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.498070277840313*^9, 
   3.498320585541303*^9, 3.498347482094449*^9, {3.5633245838246336`*^9, 
   3.5633245845746346`*^9}, {3.5633246627847443`*^9, 
   3.5633246632947445`*^9}, {3.5633247030148*^9, 3.5633247038248014`*^9}}],

Cell["Reference: G&R 2.526.1, CRC 295, A&S 4.3.116", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.498070277840313*^9, 
   3.498320585541303*^9, 3.498347482094449*^9, 3.563324726034833*^9}],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9, 
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9, 
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9, 
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9, 
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9, 
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9, 
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9, 
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9, 
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9, 
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9, 
   3.501729696314356*^9}, {3.5017298761514716`*^9, 3.5017298771342735`*^9}, {
   3.501729942248788*^9, 3.501729967068431*^9}, {3.5017301202763004`*^9, 
   3.501730120603901*^9}, {3.501730162162374*^9, 3.5017301694943867`*^9}, {
   3.501730682335688*^9, 3.501730694191709*^9}, {3.501730983011017*^9, 
   3.501731011652667*^9}, {3.5017312520178895`*^9, 3.501731277820335*^9}, {
   3.5017313805309153`*^9, 3.5017313819349174`*^9}, {3.501732216760784*^9, 
   3.5017322266044016`*^9}, {3.501732477218842*^9, 3.501732508434497*^9}, {
   3.501732542832557*^9, 3.501732562925392*^9}, {3.5017328634443207`*^9, 
   3.5017328811347513`*^9}, {3.5017331736456656`*^9, 3.501733192084898*^9}, 
   3.5053451232044587`*^9, 3.5102499127033052`*^9, 3.510250822644579*^9, {
   3.510250862304635*^9, 3.5102508814046617`*^9}, {3.5102510503048983`*^9, 
   3.510251056354906*^9}, {3.5102518942560797`*^9, 3.5102519009760885`*^9}, 
   3.510252002666231*^9, {3.510426837912462*^9, 3.510426841822468*^9}, {
   3.5104268871925316`*^9, 3.5104268910825367`*^9}, {3.510427359933193*^9, 
   3.510427368313205*^9}, {3.510427925943986*^9, 3.5104279368640013`*^9}, 
   3.512064361182539*^9, {3.513098899773337*^9, 3.5130989371333895`*^9}, {
   3.5130990885236015`*^9, 3.5130990972636137`*^9}, {3.5130991331836634`*^9, 
   3.5130991488436856`*^9}, {3.5130994299840794`*^9, 
   3.5130994345840855`*^9}, {3.5130994980641747`*^9, 3.5130995018941803`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sec", "[", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}], "]"}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "d"], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"1", "-", 
        SuperscriptBox["x", "2"]}]], ",", "x", ",", 
      RowBox[{"Sin", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Sin", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4990190900757537`*^9, 3.4990190900757537`*^9}, {3.4990193104160624`*^9, 
   3.4990193104160624`*^9}, {3.499019370396146*^9, 3.499019370396146*^9}, {
   3.5156209247561693`*^9, 3.5156209286543922`*^9}, {3.5608197191672173`*^9, 
   3.5608197191672173`*^9}, {3.563319598287654*^9, 3.563319598297654*^9}, {
   3.563324761464882*^9, 3.563324761464882*^9}, {3.623962059970417*^9, 
   3.6239620599904175`*^9}, {3.623962270743867*^9, 3.623962270743867*^9}, {
   3.6239630463339534`*^9, 3.6239630463539534`*^9}, {3.6239631665202646`*^9, 
   3.6239631665202646`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"Sec", "[", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"ArcTanh", "[", 
       RowBox[{"Sin", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}], "]"}], "d"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4990190900757537`*^9, 
   3.499019132675813*^9, 3.4990193734461503`*^9, {3.515362974452654*^9, 
   3.5153629757626553`*^9}, {3.515363044632752*^9, 3.515363045112753*^9}, 
   3.515621035231488*^9, {3.515621438986582*^9, 3.5156214435368423`*^9}, 
   3.5156242982611227`*^9, {3.563319598307654*^9, 3.5633195983176537`*^9}, 
   3.5633243873243585`*^9, {3.623962060000417*^9, 3.623962060000417*^9}, 
   3.623962273333871*^9, {3.6239630463639536`*^9, 3.6239630463639536`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"csc", "[", 
     RowBox[{"c_.", "+", 
      RowBox[{"d_.", "*", "x_"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"ArcCoth", "[", 
       RowBox[{"Cos", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}], "/", "d"}], " ", "/;"}], 
   " ", "*)"}], "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"ArcTanh", "[", 
      RowBox[{"Cos", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}], "/", "d"}], " ", "/;", 
   "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, {3.4979216145425825`*^9, 
   3.4979216447754354`*^9}, 3.497921877465444*^9, {3.499114117081869*^9, 
   3.4991141326918907`*^9}, 3.515620991488986*^9, {3.5633195983476543`*^9, 
   3.563319598377654*^9}, {3.563324507074526*^9, 3.563324522134547*^9}, {
   3.56348869968629*^9, 3.5634887227763224`*^9}, 3.5641089503856897`*^9, {
   3.6239620844404516`*^9, 3.623962084450452*^9}, {3.6239622944139004`*^9, 
   3.6239623192839355`*^9}, {3.623963070363987*^9, 3.6239630983740263`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416475828058686`*^9, 
   3.541647583085869*^9}, {3.5605378008794365`*^9, 3.5605378010494366`*^9}, {
   3.560538011299731*^9, 3.560538012419732*^9}, {3.560538084979834*^9, 
   3.560538086459836*^9}, 3.560812117891576*^9, {3.5608206072284613`*^9, 
   3.5608206196984787`*^9}, {3.5608207431986513`*^9, 3.5608207484086585`*^9}, 
   3.562089889175186*^9, {3.5620902904057474`*^9, 3.5620902918057494`*^9}, 
   3.562090929376642*^9, 3.5633195988076544`*^9, {3.57930624866665*^9, 
   3.579306271996683*^9}, {3.579306632247187*^9, 3.5793066327471876`*^9}, 
   3.6117917882101207`*^9, 3.6239617486499815`*^9, 3.6239620601604176`*^9, 
   3.6239630464939537`*^9, 3.664827707767354*^9, 3.6648278390968657`*^9, {
   3.664838608340831*^9, 3.6648386085068407`*^9}, 3.6757067674821296`*^9, 
   3.675707139086384*^9, 3.69256038623899*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: This rule not necessary since ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " automatically simplifies ",
 Cell[BoxData[
  FractionBox["1", 
   RowBox[{"Sec", "[", "z", "]"}]]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
    3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
    3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
    3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
    3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
    3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
    3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9},
     3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9, 
    3.515623587913493*^9, 3.515623801296698*^9, {3.562089891585189*^9, 
    3.562089910935216*^9}, {3.5633195988176546`*^9, 3.5633195988476543`*^9}, {
    3.5793063319167666`*^9, 3.5793063849968405`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 " to ",
 Cell[BoxData[
  RowBox[{"Cos", "[", "z", "]"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
    3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
    3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
    3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
    3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
    3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
    3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9},
     3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9, 
    3.515623587913493*^9, 3.515623801296698*^9, {3.562089891585189*^9, 
    3.562089910935216*^9}, {3.5633195988176546`*^9, 3.5633195988476543`*^9}, {
    3.5793063319167666`*^9, 3.5793063849968405`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 "."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.515622784285528*^9, 3.5156227858816195`*^9}, 
   3.515622836578519*^9, {3.5156236334840994`*^9, 3.5156236340031295`*^9}, {
   3.5156237450384803`*^9, 3.5156237484156733`*^9}, {3.5793064033768663`*^9, 
   3.579306404486868*^9}, {3.5793064664369545`*^9, 3.579306580157114*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.515622784285528*^9, 3.5156227858816195`*^9}, 
   3.515622836578519*^9, {3.5156236334840994`*^9, 3.5156236340031295`*^9}, {
   3.5156237450384803`*^9, 3.5156237484156733`*^9}, {3.5793064033768663`*^9, 
   3.579306404486868*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"Sec", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}], 
       RowBox[{"\[DifferentialD]", 
        RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
         FractionBox[
          RowBox[{"Sin", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], "]"}], 
          "d"]}]}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
   3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
   3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
   3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
   3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9}, 
   3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9, 
   3.515623587913493*^9, 3.515623801296698*^9, {3.562089891585189*^9, 
   3.562089910935216*^9}, {3.5633195988176546`*^9, 3.5633195988476543`*^9}, {
   3.5793063319167666`*^9, 3.5793063849968405`*^9}, {3.623962060170418*^9, 
   3.6239620601804175`*^9}, 3.6239623752880135`*^9, {3.623963046503954*^9, 
   3.6239630465139537`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"csc", "[", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
   ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Cos", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}]}], "/", "d"}], " ", "/;", "\n", 
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}], " ", 
  "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, {3.499019090105754*^9, 
   3.4990190901157537`*^9}, 3.499019132695813*^9, 3.4990196477265344`*^9, {
   3.5153623004917097`*^9, 3.515362306071718*^9}, {3.51536301466271*^9, 
   3.515363021302719*^9}, {3.515363078402799*^9, 3.5153630820928044`*^9}, 
   3.5156216240411663`*^9, 3.515622742851158*^9, 3.51562286648423*^9, 
   3.5156232626368885`*^9, {3.515623565143191*^9, 3.515623570285485*^9}, 
   3.515623676213544*^9, {3.5608205440283723`*^9, 3.560820557008391*^9}, {
   3.5620899310752444`*^9, 3.562089949935271*^9}, {3.5633195988576546`*^9, 
   3.5633195988776546`*^9}, 3.563325884306454*^9, 3.5641089426456795`*^9, {
   3.579306415726884*^9, 3.579306458776944*^9}, {3.5793065932271323`*^9, 
   3.579306613607161*^9}, 3.6239620845404515`*^9, 3.6239622945139008`*^9, {
   3.6239623849380274`*^9, 3.623962385678028*^9}, {3.6239630704639874`*^9, 
   3.623963084644007*^9}, 3.6239632601723967`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       SuperscriptBox["n", "2"], "\[Equal]", 
       FractionBox["1", "4"]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416475828058686`*^9, 
   3.541647583085869*^9}, {3.5605378008794365`*^9, 3.5605378010494366`*^9}, {
   3.560538011299731*^9, 3.560538012419732*^9}, {3.560538084979834*^9, 
   3.560538086459836*^9}, 3.560812117891576*^9, {3.5608206647085414`*^9, 
   3.5608206690385475`*^9}, 3.5608207416086493`*^9, 3.5620901204955096`*^9, 
   3.562090571316141*^9, {3.562428093873062*^9, 3.5624281024030743`*^9}, 
   3.562428200593211*^9, {3.5624286040637765`*^9, 3.562428605353778*^9}, 
   3.562428696853906*^9, 3.5624289379442434`*^9, {3.5624309020969934`*^9, 
   3.562430902326994*^9}, 3.562430997347127*^9, 3.5624311036572757`*^9, 
   3.563326271226996*^9, 3.563464329758441*^9, {3.563511959516881*^9, 
   3.563511959776881*^9}, {3.563512309967372*^9, 3.563512318977384*^9}, {
   3.563512377367466*^9, 3.5635123785274677`*^9}, 3.567475797030461*^9, {
   3.5674758292105055`*^9, 3.5674758304505076`*^9}, 3.567492496812845*^9, {
   3.5674925682529454`*^9, 3.5674925682529454`*^9}, 3.5698705583384438`*^9, {
   3.5791940722046194`*^9, 3.5791941144646783`*^9}, {3.5791942453048615`*^9, 
   3.5791942477448654`*^9}, {3.5967368574538035`*^9, 
   3.5967368874638453`*^9}, {3.59839032403822*^9, 3.5983903242482204`*^9}, 
   3.6117917892601223`*^9, 3.6239617495799828`*^9, 3.6239620602204175`*^9, 
   3.623962857593689*^9, 3.623963046543954*^9, {3.6648546096384563`*^9, 
   3.664854631441703*^9}, 3.6757067640519333`*^9, 3.675707131522951*^9, {
   3.6757071831689053`*^9, 3.675707183319914*^9}, {3.6757074175153093`*^9, 
   3.6757074226736045`*^9}, 3.6925664087557173`*^9, {3.692566445605769*^9, 
   3.692566445605769*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9, 
   3.4975766222178564`*^9, {3.515622758908077*^9, 3.5156227652274384`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"Cos", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}], ")"}], "n"]}], ")"}]}], 
   "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4990190900757537`*^9, 3.4990190900757537`*^9}, {3.4990193104160624`*^9, 
   3.4990193104160624`*^9}, {3.499019370396146*^9, 3.499019370396146*^9}, {
   3.5156209247561693`*^9, 3.5156209286543922`*^9}, {3.515622822306703*^9, 
   3.5156228246708384`*^9}, {3.5156229607426214`*^9, 
   3.5156229738013678`*^9}, {3.562091329247202*^9, 3.562091329247202*^9}, {
   3.562428201883213*^9, 3.562428202383214*^9}, {3.562428612523788*^9, 
   3.5624286129437885`*^9}, {3.562428696863906*^9, 3.562428696863906*^9}, {
   3.562428947504257*^9, 3.5624289484942584`*^9}, {3.562431490917818*^9, 
   3.562431490917818*^9}, {3.563465048049525*^9, 3.5634650480505247`*^9}, {
   3.567475920280633*^9, 3.5674759403506613`*^9}, {3.56749257861296*^9, 
   3.567492591552978*^9}, {3.6239628659737005`*^9, 3.6239628659737005`*^9}, {
   3.664854693180234*^9, 3.664854693180234*^9}, {3.6757074936576643`*^9, 
   3.6757074936576643`*^9}, {3.675709395763288*^9, 3.675709395763288*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["n", "2"], "\[Equal]", 
   FractionBox["1", "4"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.515622784285528*^9, 3.5156227858816195`*^9}, 
   3.515622836578519*^9, {3.5156236334840994`*^9, 3.5156236340031295`*^9}, {
   3.5156237450384803`*^9, 3.5156237484156733`*^9}, {3.6648386422137685`*^9, 
   3.6648386422137685`*^9}, {3.6757075690289755`*^9, 
   3.6757075690289755`*^9}, {3.6925664538557806`*^9, 3.6925664538557806`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"]}]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"Cos", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], ")"}], "n"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"Cos", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}], "n"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
   3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
   3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
   3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
   3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9}, 
   3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234431882153`*^9, {
   3.562091286127142*^9, 3.5620912896971464`*^9}, {3.562428203893216*^9, 
   3.5624282056732187`*^9}, {3.56242861387379*^9, 3.5624286151137915`*^9}, {
   3.562428696873906*^9, 3.562428696873906*^9}, {3.56242894954426*^9, 
   3.5624289510342617`*^9}, {3.563326271246996*^9, 3.5633262712769957`*^9}, {
   3.563464329782442*^9, 3.563464342876191*^9}, {3.563511553916313*^9, 
   3.5635115650363283`*^9}, {3.5635124127575154`*^9, 3.563512417527522*^9}, {
   3.567475797890462*^9, 3.567475798520463*^9}, {3.5674759588406873`*^9, 
   3.567475977210713*^9}, {3.567492497432846*^9, 3.567492497922847*^9}, {
   3.5674927101731443`*^9, 3.5674927140131493`*^9}, {3.6239620602404175`*^9, 
   3.6239620602504177`*^9}, {3.6239624250620832`*^9, 
   3.6239624348020973`*^9}, {3.6239628668537025`*^9, 
   3.6239628743137126`*^9}, {3.6239630465539536`*^9, 3.623963046563954*^9}, {
   3.6648546374460464`*^9, 3.664854679930476*^9}, {3.675707501694124*^9, 
   3.6757075353480487`*^9}, {3.6757093637044544`*^9, 3.675709376791203*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.562428615963793*^9, 3.5624286312138147`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b_.", "*", 
       RowBox[{"csc", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Csc", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "*", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], "]"}], "^", "n"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}]}],
    " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"n", "^", "2"}], ",", 
      RowBox[{"1", "/", "4"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, {3.499019090105754*^9, 
   3.4990190901157537`*^9}, 3.499019132695813*^9, 3.4990196477265344`*^9, {
   3.5153623004917097`*^9, 3.515362306071718*^9}, {3.51536301466271*^9, 
   3.515363021302719*^9}, {3.515363078402799*^9, 3.5153630820928044`*^9}, 
   3.5156216240411663`*^9, 3.515622742851158*^9, 3.51562286648423*^9, 
   3.5620911653669724`*^9, {3.562091297907158*^9, 3.5620912990671597`*^9}, {
   3.56242820639322*^9, 3.5624282112732267`*^9}, {3.5624286169637947`*^9, 
   3.5624286195937977`*^9}, {3.5624286968839064`*^9, 3.562428696893906*^9}, {
   3.5624289545842667`*^9, 3.56242895689427*^9}, {3.562430983637108*^9, 
   3.562431009297144*^9}, {3.5624311616773567`*^9, 3.5624311691673675`*^9}, 
   3.562431340337607*^9, {3.563326271286996*^9, 3.563326271316996*^9}, 
   3.5634644663372526`*^9, {3.563464531113958*^9, 3.563464554243281*^9}, {
   3.5634645852030516`*^9, 3.563464585211052*^9}, 3.563465349876788*^9, 
   3.5634659936141033`*^9, {3.563511595316371*^9, 3.5635116122263947`*^9}, 
   3.5635123998174973`*^9, {3.5635124371075497`*^9, 3.5635124484175653`*^9}, 
   3.5641096467406673`*^9, {3.5674759826507206`*^9, 3.5674760302807875`*^9}, {
   3.567479102755089*^9, 3.567479105835093*^9}, {3.5674925274328885`*^9, 
   3.567492544402912*^9}, {3.5674925982529874`*^9, 3.5674926169630136`*^9}, {
   3.567492730013172*^9, 3.567492740113186*^9}, {3.5674930805636625`*^9, 
   3.567493080873663*^9}, {3.579194127004696*^9, 3.579194132644704*^9}, 
   3.598390357408267*^9, {3.5983904442883883`*^9, 3.598390450718397*^9}, {
   3.6239620845904517`*^9, 3.6239620846104517`*^9}, 3.6239622945539007`*^9, 
   3.623962442992109*^9, 3.6239626685434246`*^9, 3.6239627093434815`*^9, 
   3.6239628806437216`*^9, {3.6239630705039873`*^9, 3.6239630846740074`*^9}, 
   3.623963276302419*^9, {3.664854720503797*^9, 3.6648547463312745`*^9}, 
   3.664854789836763*^9, {3.6757076045560074`*^9, 3.6757076512396774`*^9}, {
   3.6757094211207385`*^9, 3.6757094708775845`*^9}, 3.692566488095828*^9, 
   3.706139799745742*^9, 3.715459207775774*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["5:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, 3.5624297066153197`*^9, 
   3.5633195989276547`*^9, {3.5793074302583046`*^9, 3.5793074304183044`*^9}, 
   3.5967359688725595`*^9, {3.598389735057396*^9, 3.598389735057396*^9}, {
   3.5983898057174945`*^9, 3.5983898077874975`*^9}, {3.598389925977663*^9, 
   3.5983899428676863`*^9}, {3.5983927068995647`*^9, 3.5983927301095967`*^9}, 
   3.611791791120125*^9, 3.623961751129985*^9, 3.623962060300418*^9, 
   3.623962920323777*^9, 3.623963046603954*^9, 3.6648277132516675`*^9, {
   3.6648577091667385`*^9, 3.6648577148440638`*^9}, 3.675707148613929*^9, {
   3.6797864543070374`*^9, 3.6797864546210546`*^9}, {3.6919447285842733`*^9, 
   3.691944728784273*^9}, {3.6925603146956763`*^9, 3.6925603146956763`*^9}, {
   3.6925609166297326`*^9, 3.692560916749733*^9}, {3.6925665587759275`*^9, 
   3.6925665589459276`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.4975772088912835`*^9, 
   3.4975772155212927`*^9}, {3.561760628131563*^9, 3.5617606456415873`*^9}, {
   3.561765851298876*^9, 3.561765851298876*^9}, {3.5624297917354393`*^9, 
   3.562429804095456*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"Cos", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}], ")"}], "n"]}], ")"}]}], 
   "\[Equal]", "0"}]],
  CellChangeTimes->{{3.562429767485405*^9, 3.5624297785154204`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.4975772088912835`*^9, 
   3.4975772155212927`*^9}, {3.561760628131563*^9, 3.5617606456415873`*^9}, {
   3.561765851298876*^9, 3.561765851298876*^9}, {3.562429807215461*^9, 
   3.562429815995473*^9}, {3.5633195989476547`*^9, 3.563319598957655*^9}, {
   3.563326105276764*^9, 3.5633261115867724`*^9}, {3.5793076745686464`*^9, 
   3.5793076850186605`*^9}, {3.598390056227845*^9, 3.598390056227845*^9}, {
   3.6239629255737844`*^9, 3.6239629255737844`*^9}, {3.664857676508871*^9, 
   3.664857676508871*^9}, {3.6658921384850287`*^9, 3.6658921384850287`*^9}, {
   3.66663260363309*^9, 3.66663260363309*^9}, {3.692558580598789*^9, 
   3.692558585668798*^9}, {3.6925602995948496`*^9, 3.6925603018724537`*^9}}],

Cell["\<\
Note: Decrementing the exponents in the piecewise constant factor results in \
canceling out the cosine factor introduced when integrating the power of the \
cosine. \
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.4975772088912835`*^9, 
   3.4975772155212927`*^9}, {3.561760628131563*^9, 3.5617606456415873`*^9}, {
   3.561765851298876*^9, 3.561765851298876*^9}, {3.563476221125924*^9, 
   3.563476221125924*^9}, {3.563476314506055*^9, 3.5634763641461244`*^9}, {
   3.6648577395804787`*^9, 3.6648577824849324`*^9}, {3.6648578130186787`*^9, 
   3.664857855294097*^9}, {3.6648578994386215`*^9, 3.664858001114437*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"2", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.4975772088912835`*^9, 
   3.4975772155212927`*^9}, {3.561760628131563*^9, 3.5617606456415873`*^9}, {
   3.561765851298876*^9, 3.561765851298876*^9}, {3.5983897405974035`*^9, 
   3.5983897405974035`*^9}, {3.598389949747696*^9, 3.598389949747696*^9}, {
   3.598392719449582*^9, 3.598392719449582*^9}, {3.6648577192613163`*^9, 
   3.664857719262316*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "1"}]]}]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{"Cos", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}], "b"], ")"}], 
    RowBox[{"n", "-", "1"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"Cos", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}], "b"], ")"}], "n"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
   3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
   3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
   3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
   3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9}, 
   3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234431882153`*^9, {
   3.562091286127142*^9, 3.5620912896971464`*^9}, {3.562428203893216*^9, 
   3.5624282056732187`*^9}, {3.56242861387379*^9, 3.5624286151137915`*^9}, {
   3.562428696873906*^9, 3.562428696873906*^9}, {3.56242894954426*^9, 
   3.5624289510342617`*^9}, {3.563326271246996*^9, 3.5633262712769957`*^9}, {
   3.563464329782442*^9, 3.563464342876191*^9}, {3.563511553916313*^9, 
   3.5635115650363283`*^9}, {3.623962060310418*^9, 3.623962060320418*^9}, {
   3.623962468212144*^9, 3.623962468772145*^9}, {3.623962926623786*^9, 
   3.6239629301137905`*^9}, {3.6239630466139536`*^9, 3.623963046623954*^9}, {
   3.665891770942006*^9, 3.66589180124074*^9}, {3.66589190038341*^9, 
   3.665891907969844*^9}, {3.666632615473107*^9, 3.666632628889126*^9}, {
   3.6925585457015276`*^9, 3.6925585614575553`*^9}, {3.69255900820354*^9, 
   3.692559029279177*^9}, {3.692560292387637*^9, 3.69256029413484*^9}, {
   3.6925678484808044`*^9, 3.6925678504108076`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b_.", "*", 
       RowBox[{"csc", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Csc", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"1", "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}], "/", "b"}], ")"}], "^", 
          "n"}]}], ",", "x"}], "]"}]}], ")"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, {3.499019090105754*^9, 
   3.4990190901157537`*^9}, 3.499019132695813*^9, 3.4990196477265344`*^9, {
   3.5153623004917097`*^9, 3.515362306071718*^9}, {3.51536301466271*^9, 
   3.515363021302719*^9}, {3.515363078402799*^9, 3.5153630820928044`*^9}, 
   3.5156216240411663`*^9, 3.515622742851158*^9, 3.51562286648423*^9, 
   3.5620911653669724`*^9, {3.562091297907158*^9, 3.5620912990671597`*^9}, {
   3.56242820639322*^9, 3.5624282112732267`*^9}, {3.5624286169637947`*^9, 
   3.5624286195937977`*^9}, {3.5624286968839064`*^9, 3.562428696893906*^9}, {
   3.5624289545842667`*^9, 3.56242895689427*^9}, {3.562430983637108*^9, 
   3.562431009297144*^9}, {3.5624311616773567`*^9, 3.5624311691673675`*^9}, 
   3.562431340337607*^9, {3.563326271286996*^9, 3.563326271316996*^9}, 
   3.5634644663372526`*^9, {3.563464531113958*^9, 3.563464554243281*^9}, {
   3.5634645852030516`*^9, 3.563464585211052*^9}, 3.563465349876788*^9, 
   3.5634659936141033`*^9, {3.563511595316371*^9, 3.5635116122263947`*^9}, 
   3.564109646850668*^9, 3.5967364118631797`*^9, {3.5983897428174067`*^9, 
   3.5983897436574078`*^9}, {3.598389963787716*^9, 3.5983899850877457`*^9}, {
   3.5983926575294952`*^9, 3.5983926622295017`*^9}, {3.623962084700452*^9, 
   3.6239620847204523`*^9}, 3.6239622946039004`*^9, 3.6239625094222016`*^9, 
   3.623962671243428*^9, {3.6239627143234887`*^9, 3.6239627149234896`*^9}, 
   3.6239629382938023`*^9, {3.6239630705639877`*^9, 3.623963084704007*^9}, {
   3.6239632905024395`*^9, 3.623963292442442*^9}, {3.6648288580371456`*^9, 
   3.66482886789771*^9}, {3.6648573962638416`*^9, 3.6648574163259892`*^9}, {
   3.6658919322552333`*^9, 3.665891994355785*^9}, {3.666632672614188*^9, 
   3.6666326840432053`*^9}, {3.679786446589596*^9, 3.679786450291807*^9}, {
   3.691944710356247*^9, 3.69194471244625*^9}, {3.6925586195520573`*^9, 
   3.6925586222196617`*^9}, {3.692559091913287*^9, 3.6925590968584957`*^9}, {
   3.6925603223552895`*^9, 3.69256033377451*^9}, {3.692567632245474*^9, 
   3.6925676605605416`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450663314814796`*^9, 3.5450663316414795`*^9}, 3.5454973458879566`*^9, 
   3.5455060521401453`*^9, {3.545506909391345*^9, 3.5455069117413483`*^9}, 
   3.545514775997055*^9, {3.545515436017806*^9, 3.5455154527307615`*^9}, 
   3.562344433819483*^9, 3.5633411391816645`*^9, {3.5653716440264835`*^9, 
   3.5653716442364836`*^9}, 3.611795557880509*^9, {3.6239634594026756`*^9, 
   3.623963459602676*^9}, {3.664829173059164*^9, 3.664829173474188*^9}, {
   3.6757078602276306`*^9, 3.675707860434643*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9, 
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9, 
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9, 
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9, 
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9, 
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9, 
   3.5017227105524817`*^9}, {3.503880515951973*^9, 3.5038805176835756`*^9}, {
   3.5038805488524303`*^9, 3.5038805721276717`*^9}, {3.503881323994993*^9, 
   3.5038813546802473`*^9}, {3.5049162938617954`*^9, 
   3.5049163006634073`*^9}, {3.5049224814485416`*^9, 
   3.5049225441586294`*^9}, {3.504922716808871*^9, 3.5049227329788933`*^9}, 
   3.505345123294459*^9, {3.5102680075767136`*^9, 3.510268048246771*^9}, {
   3.510286142802781*^9, 3.5102861557352037`*^9}, {3.5102870731364155`*^9, 
   3.5102871063020735`*^9}, {3.5120545232307515`*^9, 3.512054526910756*^9}, {
   3.5141426032508097`*^9, 3.5141426115508213`*^9}, {3.545711448900592*^9, 
   3.5457114525205965`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "z"}]}], ")"}], "2"], "\[Equal]", 
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    RowBox[{"2", " ", "a", " ", "b", " ", "z"}], "+", 
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     SuperscriptBox["z", "2"]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9, 
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.50474982887571*^9, 
   3.504749836455721*^9}, {3.5047498695657673`*^9, 3.5047498727757716`*^9}, {
   3.5072605288062344`*^9, 3.5072605314582396`*^9}, {3.5075717121274023`*^9, 
   3.507571727117423*^9}, {3.50758176808795*^9, 3.5075817732679577`*^9}, {
   3.507583363755458*^9, 3.5075833689814672`*^9}, {3.510507619932962*^9, 
   3.51050763590739*^9}, {3.514253208507701*^9, 3.5142532278877277`*^9}, {
   3.545064994169607*^9, 3.545064995629609*^9}, {3.5455110500959444`*^9, 
   3.5455110500959444`*^9}, {3.545513599049513*^9, 3.54551365425959*^9}, {
   3.5455141056897154`*^9, 3.5455141257958655`*^9}, 3.5455142510980325`*^9, {
   3.545711464070613*^9, 3.5457115044906693`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, 
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9, 
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9, 
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9, 
   3.5062138967830486`*^9}, {3.5062141332678576`*^9, 
   3.5062141507378817`*^9}, {3.5105084879028864`*^9, 3.510508488090087*^9}, {
   3.5130944226480646`*^9, 3.5130944467345066`*^9}, 3.51309510891803*^9, {
   3.5141416582394867`*^9, 3.5141416778495145`*^9}, {3.514146583716383*^9, 
   3.514146584846384*^9}, {3.51414758915779*^9, 3.514147589647791*^9}, 
   3.5141476759479117`*^9, 3.514597994066436*^9, 3.5151812601010585`*^9, {
   3.545066159221238*^9, 3.5450661596212387`*^9}, 3.5455147732428975`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      SuperscriptBox["a", "2"]}]}], "x"}]}], "+", 
  RowBox[{"2", "a", " ", "b", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Sec", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "2"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9, 
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9}, 
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9, 
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9, 
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5098355380753117`*^9, 3.509835661752329*^9}, {3.509835695323588*^9, 
   3.509835698927194*^9}, {3.50983577051572*^9, 3.5098358512614617`*^9}, {
   3.5101827368266892`*^9, 3.510182745344304*^9}, {3.5101829999523516`*^9, 
   3.510183019686386*^9}, {3.5141366663504972`*^9, 3.514136709830558*^9}, {
   3.5141367652306356`*^9, 3.5141367807606573`*^9}, {3.5141369190408506`*^9, 
   3.514137030991008*^9}, {3.5141375883017883`*^9, 3.5141375939117956`*^9}, {
   3.51414390318263*^9, 3.5141439034726305`*^9}, {3.5151675869436274`*^9, 
   3.5151675899036317`*^9}, {3.5455069168013554`*^9, 
   3.5455069411613894`*^9}, {3.545711542130722*^9, 3.5457115866207843`*^9}, {
   3.5633411391916647`*^9, 3.5633411392016644`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", "^", "2"}], "*", "x"}], " ", "+", " ", 
    RowBox[{"2", "*", "a", "*", "b", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"Csc", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Csc", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}], ",", "x"}], "]"}]}]}],
    " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, 
   3.4979862281609955`*^9, {3.4979862780186834`*^9, 3.4979862991255207`*^9}, 
   3.4979863964508915`*^9, {3.497990453203616*^9, 3.497990473936053*^9}, 
   3.4986794274067383`*^9, {3.498763920866046*^9, 3.4987639593560996`*^9}, {
   3.4991312222624083`*^9, 3.49913122341241*^9}, {3.5010427775038137`*^9, 
   3.501042778515871*^9}, {3.5030725326890316`*^9, 3.5030725406290426`*^9}, 
   3.5038761341846743`*^9, 3.5043679506879787`*^9, {3.5051850204098253`*^9, 
   3.505185024399053*^9}, 3.5053446405137825`*^9, {3.5053446906538534`*^9, 
   3.505344714143886*^9}, 3.5053519910530176`*^9, 3.508782980727106*^9, {
   3.5098952623037148`*^9, 3.509895264533718*^9}, {3.510267358245805*^9, 
   3.510267363695812*^9}, 3.5102674525359364`*^9, {3.51026851924743*^9, 
   3.510268522147434*^9}, 3.510268653627618*^9, {3.5102687229377155`*^9, 
   3.510268727847722*^9}, 3.510286783854707*^9, {3.510286855412032*^9, 
   3.5102868598424406`*^9}, {3.510286899944911*^9, 3.510286906169322*^9}, 
   3.512054537890772*^9, {3.5120545820108337`*^9, 3.512054602120862*^9}, {
   3.5141374185915504`*^9, 3.514137419971552*^9}, 3.514137457461605*^9, 
   3.5141375596417475`*^9, {3.514137613991824*^9, 3.514137617741829*^9}, {
   3.514141592499395*^9, 3.5141415948793983`*^9}, {3.5141439065226345`*^9, 
   3.5141439068526354`*^9}, 3.516821192057212*^9, {3.5450638743880396`*^9, 
   3.545063878378045*^9}, {3.5457116227508345`*^9, 3.5457116927109327`*^9}, 
   3.5472285141113257`*^9, {3.5633411392116647`*^9, 3.5633411392216644`*^9}, 
   3.563341277311858*^9, {3.5634051299323654`*^9, 3.5634051393123784`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368261571748*^9}, {
   3.5653699708741407`*^9, 3.5653699710741415`*^9}, {3.5653707305152044`*^9, 
   3.5653707346152105`*^9}, 3.5653716834765387`*^9, 3.611795583059949*^9, {
   3.623963460792678*^9, 3.6239634609426775`*^9}, {3.6648291765553637`*^9, 
   3.664829177517419*^9}, {3.6757078616727133`*^9, 3.675707861838723*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368261571748*^9}, {
   3.5653699708741407`*^9, 3.5653699710741415`*^9}, {3.5653707305152044`*^9, 
   3.5653707346152105`*^9}, {3.608848375031717*^9, 3.608848390911739*^9}, 
   3.6088497238386106`*^9, 3.6117955850400624`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368261571748*^9}, {
   3.5653699708741407`*^9, 3.5653699710741415`*^9}, {3.5653707305152044`*^9, 
   3.5653707346152105`*^9}, {3.608848375031717*^9, 3.608848390911739*^9}, {
   3.6088484571718316`*^9, 3.608848476891859*^9}, 3.608849782768693*^9, 
   3.6117955858481083`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450663314814796`*^9, 3.5450663316414795`*^9}, 3.5454973458879566`*^9, 
   3.5455060521401453`*^9, {3.545506909391345*^9, 3.5455069117413483`*^9}, {
   3.5455073827220078`*^9, 3.545507383482009*^9}, {3.5455122633376427`*^9, 
   3.545512292647684*^9}, {3.5455136996796536`*^9, 3.5455136998196535`*^9}, {
   3.5455142924844*^9, 3.5455142924844*^9}, 3.5455143371719556`*^9, {
   3.5455144768269434`*^9, 3.5455144770239544`*^9}, {3.5455154370398645`*^9, 
   3.5455154542288475`*^9}, 3.545685845514475*^9, {3.5474121538268623`*^9, 
   3.5474121553244653`*^9}, {3.5474126496489286`*^9, 3.547412678306179*^9}, 
   3.5474127213310547`*^9, 3.5474131923318768`*^9, 3.563341139041664*^9, 
   3.598383439175971*^9, 3.5983971556657925`*^9, 3.6088497430986376`*^9, {
   3.609198706383896*^9, 3.609198706383896*^9}, 3.609198798584025*^9, 
   3.6117955863641376`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Author: Martin Welz on 24 June 2011", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, 
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}, {3.5797206147755804`*^9, 
   3.5797206152355804`*^9}, {3.588115076753725*^9, 3.5881150844237356`*^9}, {
   3.5881151472838235`*^9, 3.5881151657838497`*^9}}],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, 
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}, {3.5797206147755804`*^9, 
   3.5797206152355804`*^9}, {3.588115076753725*^9, 3.5881150844237356`*^9}, {
   3.5881151472838235`*^9, 3.5881151657838497`*^9}, {3.588119699570197*^9, 
   3.588119706790207*^9}, {3.609198375163432*^9, 3.6091983850434456`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"2", "b", " "}], "d"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"a", "+", 
        SuperscriptBox["x", "2"]}]], ",", "x", ",", 
      FractionBox[
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], 
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Sec", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}, {
   3.4978200170946946`*^9, 3.497820027074709*^9}, {3.499013486817563*^9, 
   3.4990134954287786`*^9}, 3.499013543196062*^9, {3.4990140227097044`*^9, 
   3.4990140412425375`*^9}, {3.499014141223113*^9, 3.499014304336999*^9}, {
   3.4990144633324785`*^9, 3.499014471413293*^9}, {3.4990150974391923`*^9, 
   3.499015098343994*^9}, 3.499015758861554*^9, {3.5673840780062265`*^9, 
   3.5673840780062265`*^9}, {3.590445555758641*^9, 3.5904455947486954`*^9}, {
   3.590445806078991*^9, 3.590445806078991*^9}, {3.5904485267528*^9, 
   3.590448539242818*^9}, {3.5910366773670006`*^9, 3.5910366813270063`*^9}, {
   3.59103672705707*^9, 3.59103672705707*^9}, {3.5910476442943554`*^9, 
   3.591047653754369*^9}, {3.6088529346431055`*^9, 3.608852948523125*^9}, {
   3.608853012463215*^9, 3.608853070383296*^9}, {3.6091986101337605`*^9, 
   3.6091986101337605`*^9}, {3.610743728286002*^9, 3.610743728286002*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, 
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9, 
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9, 
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9, 
   3.5062138967830486`*^9}, {3.5062141332678576`*^9, 
   3.5062141507378817`*^9}, {3.5105084879028864`*^9, 3.510508488090087*^9}, {
   3.5130944226480646`*^9, 3.5130944467345066`*^9}, 3.51309510891803*^9, 
   3.514147239737301*^9, {3.514487372506321*^9, 3.5144873727363214`*^9}, {
   3.5165576820821433`*^9, 3.5165576820821433`*^9}, {3.5165582083062663`*^9, 
   3.5165582086338673`*^9}, 3.5165908254196434`*^9, {3.5454161012016726`*^9, 
   3.5454161012016726`*^9}, {3.545430104665186*^9, 3.545430105025186*^9}, {
   3.545505660519597*^9, 3.545505660519597*^9}, {3.5456858910345387`*^9, 
   3.5456858916545396`*^9}, {3.5474121601916733`*^9, 
   3.5474121601916733`*^9}, {3.547412659040145*^9, 3.547412671956968*^9}, {
   3.609198719443914*^9, 3.609198719443914*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"2", "b"}], "d"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"a", "+", 
         SuperscriptBox["x", "2"]}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497923207991781*^9, {
   3.4991292213496065`*^9, 3.499129226379614*^9}, 3.5006646650530725`*^9, {
   3.5006652709839206`*^9, 3.500665282473937*^9}, 3.5006668515961337`*^9, {
   3.5006668992662*^9, 3.5006669216762314`*^9}, {3.5006756467284465`*^9, 
   3.500675652058454*^9}, {3.500676422829533*^9, 3.500676426179538*^9}, {
   3.505668132210605*^9, 3.505668154310636*^9}, {3.5087906823493433`*^9, 
   3.508790694919361*^9}, {3.513379994056366*^9, 3.51337999677637*^9}, {
   3.513724328907849*^9, 3.513724331965454*^9}, {3.513724406424385*^9, 
   3.5137244203552094`*^9}, 3.513724465704489*^9, {3.5137246153911533`*^9, 
   3.513724650241615*^9}, 3.513724691004486*^9, {3.5151823055260954`*^9, 
   3.5151823322801423`*^9}, {3.5151832144304914`*^9, 3.515183217238497*^9}, {
   3.516414325622828*^9, 3.5164143288928328`*^9}, {3.547412194997334*^9, 
   3.5474122396758127`*^9}, {3.5633411390516644`*^9, 3.5633411390616646`*^9}, 
   3.5633411760717163`*^9, 3.5633412428718095`*^9, {3.609198676653854*^9, 
   3.609198698203884*^9}, {3.610743754636509*^9, 3.6107437644200687`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"a_", "+", 
      RowBox[{"b_.", "*", 
       RowBox[{"csc", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*", 
    RowBox[{"b", "/", "d"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"x", "^", "2"}]}], ")"}]}], ",", "x"}], "]"}], ",", "x", 
      ",", 
      RowBox[{"b", "*", 
       RowBox[{
        RowBox[{"Cot", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}], "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Csc", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}]}]}], "]"}]}], " ", 
   "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, 
   3.4979862281609955`*^9, {3.4979862780186834`*^9, 3.4979862991255207`*^9}, 
   3.4979863964508915`*^9, {3.497990453203616*^9, 3.497990473936053*^9}, 
   3.4986794274067383`*^9, {3.498763920866046*^9, 3.4987639593560996`*^9}, {
   3.4991312222624083`*^9, 3.49913122341241*^9}, {3.5010427775038137`*^9, 
   3.501042778515871*^9}, {3.5030725326890316`*^9, 3.5030725406290426`*^9}, 
   3.5038761341846743`*^9, 3.5043679506879787`*^9, {3.5051850204098253`*^9, 
   3.505185024399053*^9}, 3.5053446405137825`*^9, {3.5053446906538534`*^9, 
   3.505344714143886*^9}, 3.5053519910530176`*^9, 3.508782980727106*^9, {
   3.5098952623037148`*^9, 3.509895264533718*^9}, {3.510267358245805*^9, 
   3.510267363695812*^9}, 3.5102674525359364`*^9, {3.51026851924743*^9, 
   3.510268522147434*^9}, 3.510268653627618*^9, {3.5102687229377155`*^9, 
   3.510268727847722*^9}, 3.510286783854707*^9, {3.510286855412032*^9, 
   3.5102868598424406`*^9}, {3.510286899944911*^9, 3.510286906169322*^9}, 
   3.512054537890772*^9, {3.5120545820108337`*^9, 3.512054602120862*^9}, {
   3.5141374185915504`*^9, 3.514137419971552*^9}, 3.514137457461605*^9, 
   3.5141375596417475`*^9, {3.514137613991824*^9, 3.514137617741829*^9}, {
   3.514141592499395*^9, 3.5141415948793983`*^9}, {3.5141439065226345`*^9, 
   3.5141439068526354`*^9}, 3.516821192057212*^9, {3.5450638743880396`*^9, 
   3.545063878378045*^9}, {3.545507517162196*^9, 3.5455075287422123`*^9}, {
   3.5455075793522835`*^9, 3.5455075831122885`*^9}, {3.5455076938424435`*^9, 
   3.545507722222483*^9}, {3.5455109091057467`*^9, 3.545510917415758*^9}, {
   3.5455133788192043`*^9, 3.5455134331392803`*^9}, {3.545514373810051*^9, 
   3.545514406188903*^9}, {3.545514581199913*^9, 3.5455145866042223`*^9}, {
   3.5456805406867657`*^9, 3.5456805408967657`*^9}, 3.54568587058451*^9, 
   3.5472285141313257`*^9, {3.547412163030879*^9, 3.5474121644504814`*^9}, 
   3.5474123198931527`*^9, {3.547412638026908*^9, 3.5474126414589143`*^9}, 
   3.5633411390716643`*^9, 3.5633411760917163`*^9, {3.5633412772718577`*^9, 
   3.563341284231868*^9}, {3.5634049783821535`*^9, 3.563405000442184*^9}, 
   3.5634050392822385`*^9, {3.6091987604339714`*^9, 3.6091987763039937`*^9}, {
   3.610743802020219*^9, 3.61074381601602*^9}, 3.706139799795742*^9, 
   3.7154592344893017`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9}, 
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9, 
   3.5454163977893934`*^9}, {3.5454168214081373`*^9, 
   3.5454168256513453`*^9}, {3.5454168857582507`*^9, 
   3.5454169106558943`*^9}, {3.5454170438021283`*^9, 
   3.5454170438021283`*^9}, {3.5454172983477755`*^9, 
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9}, 
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9, 
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9, 
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9, 
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5473978108793373`*^9, 
   3.5473978482564754`*^9}, {3.5474060495403833`*^9, 3.5474060628580017`*^9}, 
   3.5474062468886614`*^9, {3.5474065178114433`*^9, 3.5474065178114433`*^9}, 
   3.5474112999321795`*^9, {3.547411537033392*^9, 3.5474115395449963`*^9}, {
   3.547413231195544*^9, 3.547413248745575*^9}, {3.5474144625150957`*^9, 
   3.5474144641218987`*^9}, {3.548013058929556*^9, 3.548013059159556*^9}, {
   3.548013161299699*^9, 3.548013161299699*^9}, 3.562344449659505*^9, 
   3.5633411392316647`*^9, {3.565372187977245*^9, 3.565372203647267*^9}, {
   3.598383406825926*^9, 3.5983834083259277`*^9}, 3.6088497262086143`*^9, {
   3.6088497875287*^9, 3.608849805088724*^9}, {3.609296826980466*^9, 
   3.6092968340704756`*^9}, 3.6117955868061633`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Symmetric secant recurrence 1b with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "\[Rule]", "a"}], ",", 
   RowBox[{"B", "\[Rule]", "b"}], ",", 
   RowBox[{"m", "\[Rule]", "0"}], ",", 
   RowBox[{"n", "\[Rule]", 
    RowBox[{"n", "-", "1"}]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.56303300559656*^9, 3.563033010526567*^9}, {
   3.5630332375968847`*^9, 3.563033251186904*^9}, {3.5630353532733574`*^9, 
   3.563035365843375*^9}, {3.5630364723249245`*^9, 3.563036481414937*^9}, {
   3.5630368501854534`*^9, 3.5630368535854583`*^9}, {3.5630379400269794`*^9, 
   3.563037941456981*^9}, {3.563038489137748*^9, 3.5630384976377597`*^9}, {
   3.5633414266320667`*^9, 3.5633414269220676`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9, 
   3.5018079522746983`*^9}, {3.5018088942823524`*^9, 3.5018088954991546`*^9}, 
   3.50180892701121*^9, {3.501812061374316*^9, 3.501812073838738*^9}, {
   3.5018891712996063`*^9, 3.5018891721496077`*^9}, 3.5018892149396677`*^9, {
   3.501889870350585*^9, 3.501889877930596*^9}, {3.5019616122915564`*^9, 
   3.5019616122915564`*^9}, {3.501963446484124*^9, 3.5019634484241266`*^9}, {
   3.5019854691076093`*^9, 3.5019854716876125`*^9}, {3.5019858450681353`*^9, 
   3.5019858450681353`*^9}, {3.50198626997873*^9, 3.501986271478732*^9}, 
   3.5021314533978634`*^9, {3.5023184824413586`*^9, 3.5023184926125765`*^9}, {
   3.502318577585926*^9, 3.50231858008193*^9}, {3.502329492721938*^9, 
   3.502329492721938*^9}, {3.50233161170686*^9, 3.5023316148268657`*^9}, {
   3.504489700745121*^9, 3.5044897024751234`*^9}, 3.505164492700603*^9, {
   3.5051648664611263`*^9, 3.5051648686311293`*^9}, {3.5051649653312645`*^9, 
   3.505164969751271*^9}, {3.505195341110135*^9, 3.505195341110135*^9}, 
   3.513387851927367*^9, {3.5133882448479176`*^9, 3.5133882461479187`*^9}, {
   3.5135745631548443`*^9, 3.513574578567672*^9}, {3.5135746371769743`*^9, 
   3.5135746387681775`*^9}, {3.513607751206149*^9, 3.5136077519237504`*^9}, {
   3.5136180771072035`*^9, 3.5136180778272047`*^9}, {3.514145808465297*^9, 
   3.514145808465297*^9}, {3.5165800516786327`*^9, 3.516580052098633*^9}, {
   3.516592826862446*^9, 3.516592827822447*^9}, {3.5474063944776697`*^9, 
   3.5474063944776697`*^9}, {3.5474132539091835`*^9, 
   3.5474132539091835`*^9}, {3.54741447097031*^9, 3.54741447097031*^9}, {
   3.548013182009728*^9, 3.548013182009728*^9}, {3.562305018922165*^9, 
   3.562305019382166*^9}, {3.565372208317273*^9, 3.565372208317273*^9}, {
   3.609296839150483*^9, 3.609296839150483*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox["b", "2"], 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Sec", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
         RowBox[{"n", "-", "2"}]]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["a", 
    RowBox[{"n", "-", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", "n"}], "-", "4"}], ")"}], 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9, 
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9, 
   3.4987641855164165`*^9}, {3.4987643207166057`*^9, 
   3.4987643238566103`*^9}, {3.4987646394170513`*^9, 
   3.4987646400870523`*^9}, {3.4988373438843184`*^9, 
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9, 
   3.4991965109376154`*^9}, {3.4991970152869015`*^9, 
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9, 
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9}, 
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9, 
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9, 
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501807660242185*^9, 3.5018076682761993`*^9}, {3.5018077767119894`*^9, 
   3.5018078381604977`*^9}, {3.501807870358954*^9, 3.5018078706397543`*^9}, {
   3.5018085031116657`*^9, 3.5018086153694625`*^9}, {3.5018087435704875`*^9, 
   3.5018087487340965`*^9}, {3.501808975870496*^9, 3.5018090631370487`*^9}, {
   3.5018887937290783`*^9, 3.5018888537491617`*^9}, {3.501888888759211*^9, 
   3.501889055159444*^9}, {3.504810640684278*^9, 3.5048106424142804`*^9}, {
   3.5053551465874352`*^9, 3.505355162927458*^9}, 3.505355197987507*^9, 
   3.505363506753352*^9, 3.5133881630578027`*^9, {3.513396391369046*^9, 
   3.5133965080260515`*^9}, {3.513574050012743*^9, 3.513574114264056*^9}, {
   3.5135741842613792`*^9, 3.513574255257104*^9}, {3.513574352055274*^9, 
   3.5135743573592834`*^9}, {3.5135745908292933`*^9, 3.513574592576496*^9}, {
   3.5151821046085415`*^9, 3.515182113282157*^9}, {3.563037767226737*^9, 
   3.5630377688667393`*^9}, {3.563341139241665*^9, 3.5633411392616644`*^9}, 
   3.563341176151716*^9, 3.5633414848921485`*^9, {3.6269228930364246`*^9, 
   3.6269228982936335`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"b", "^", "2"}]}], "*", 
     RowBox[{"Cot", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "2"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"a", "/", 
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Csc", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "2"}], ")"}]}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "*", 
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}]}], "+", 
          RowBox[{"b", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", "*", "n"}], "-", "4"}], ")"}], "*", 
           RowBox[{"Csc", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9, 
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9, 
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9}, 
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9}, 
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9}, 
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9, 
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9, 
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9}, 
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9, 
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9, 
   3.5018074743646593`*^9}, {3.5018079781707435`*^9, 
   3.5018079845979548`*^9}, {3.501808142938233*^9, 3.501808157227858*^9}, {
   3.501808857045087*^9, 3.501808860570693*^9}, {3.501808898962361*^9, 
   3.501808916137991*^9}, {3.5018091789952526`*^9, 3.5018091989008875`*^9}, {
   3.501819685414508*^9, 3.501819688050913*^9}, {3.5018891469595723`*^9, 
   3.501889181499621*^9}, {3.5018898212705164`*^9, 3.5018898634705753`*^9}, {
   3.5019616089115515`*^9, 3.501961609351552*^9}, {3.5019633974840555`*^9, 
   3.501963422914091*^9}, {3.5019854228875446`*^9, 3.501985423087545*^9}, 
   3.5019858423081317`*^9, {3.5019862622087193`*^9, 3.5019862650687237`*^9}, {
   3.502040617764885*^9, 3.502040622304493*^9}, {3.5021314494666567`*^9, 
   3.5021314500906577`*^9}, {3.5023068614118567`*^9, 3.50230686351786*^9}, {
   3.5023070664274163`*^9, 3.502307067332218*^9}, {3.5023184596809187`*^9, 
   3.502318475889347*^9}, {3.502327270872435*^9, 3.50232727330604*^9}, {
   3.50232738749824*^9, 3.5023273916634474`*^9}, {3.502327723741231*^9, 
   3.5023277250984335`*^9}, 3.5023295095075674`*^9, 3.5023315749999957`*^9, {
   3.5051645117606297`*^9, 3.5051645140606327`*^9}, {3.505195347520502*^9, 
   3.505195350617679*^9}, {3.505355146597435*^9, 3.5053551629474583`*^9}, 
   3.505355197997507*^9, 3.5053635089433556`*^9, 3.5133879042274404`*^9, {
   3.513387995507568*^9, 3.513387995967569*^9}, {3.5133880563076534`*^9, 
   3.5133880579376554`*^9}, 3.513388114727735*^9, 3.5133967152239943`*^9, 
   3.5134409559022603`*^9, {3.5135728220521855`*^9, 3.5135728378862133`*^9}, {
   3.5135744507722473`*^9, 3.5135745369623985`*^9}, {3.5136076733152122`*^9, 
   3.513607682800029*^9}, 3.514145783215262*^9, {3.5410888732033463`*^9, 
   3.541088875980151*^9}, {3.5455831334120398`*^9, 3.54558313393204*^9}, 
   3.5474069644944735`*^9, 3.5474070705818233`*^9, 3.5474071449499273`*^9, 
   3.5474074851368074`*^9, {3.547413261274396*^9, 3.5474132624287977`*^9}, {
   3.5474144741527157`*^9, 3.5474144762431197`*^9}, {3.5480131872797356`*^9, 
   3.5480131893597383`*^9}, {3.5633411392716646`*^9, 3.563341139291665*^9}, 
   3.563341176151716*^9, 3.563341277311858*^9, 3.5633414878221526`*^9, {
   3.563405151142395*^9, 3.5634051654024153`*^9}, 3.5653722224672933`*^9, {
   3.5788567474290447`*^9, 3.578856749729048*^9}, 3.6088501655792294`*^9, {
   3.6269229226794767`*^9, 3.6269229261426826`*^9}, 3.706139799825742*^9, {
   3.7154592345133033`*^9, 3.715459249362153*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368261571748*^9}, {
   3.5653699708741407`*^9, 3.5653699710741415`*^9}, {3.5653707305152044`*^9, 
   3.5653707346152105`*^9}, {3.608848375031717*^9, 3.608848390911739*^9}, {
   3.6088484571718316`*^9, 3.608848476891859*^9}, {3.608848546791957*^9, 
   3.608848552691965*^9}, 3.6088497815786915`*^9, 3.6117955872291875`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9}, 
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9, 
   3.5454163977893934`*^9}, {3.5454168214081373`*^9, 
   3.5454168256513453`*^9}, {3.5454168857582507`*^9, 
   3.5454169106558943`*^9}, {3.5454170438021283`*^9, 
   3.5454170438021283`*^9}, {3.5454172983477755`*^9, 
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9}, 
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9, 
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9, 
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9, 
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5473978108793373`*^9, 
   3.5473978482564754`*^9}, {3.5474060495403833`*^9, 3.5474060628580017`*^9}, 
   3.5474062524886694`*^9, {3.5474065227214503`*^9, 3.5474065227214503`*^9}, 
   3.547411361805887*^9, {3.547413530492267*^9, 3.5474135329102716`*^9}, 
   3.563341139521665*^9, {3.5983834242859507`*^9, 3.5983834261459527`*^9}, {
   3.598397144015776*^9, 3.5983971455057783`*^9}, 3.6088497359786277`*^9, {
   3.608849871438817*^9, 3.6088498716988173`*^9}, 3.611795587647211*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Author: Martin on sci.math.symbolic on 10 March 2011", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, {
   3.4982419729252176`*^9, 3.498241999425255*^9}, {3.498242205975544*^9, 
   3.498242206945545*^9}, 3.504589884461319*^9, {3.513615195447156*^9, 
   3.513615217053193*^9}}],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.500666948156269*^9, 3.5006669508262725`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    SqrtBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "z"}]}]]], "\[Equal]", 
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "z"}]}]], "a"], "-", 
    FractionBox[
     RowBox[{"b", " ", "z"}], 
     RowBox[{"a", 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "z"}]}]]}]]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.500666948156269*^9, 3.5006669508262725`*^9}, {
   3.5006760576590223`*^9, 3.5006760794090524`*^9}, {3.500676130389124*^9, 
   3.500676132759127*^9}, 3.500676240689278*^9, 3.5006764023895044`*^9, {
   3.5006764330595474`*^9, 3.500676467739596*^9}, {3.5022467487167635`*^9, 
   3.502246767498838*^9}, {3.516574608534994*^9, 3.516574623285015*^9}, {
   3.516574724719163*^9, 3.5165747651392193`*^9}, {3.516574997667554*^9, 
   3.516575043887619*^9}, 3.516575103157702*^9, {3.5473996109902954`*^9, 
   3.5473996831837664`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976398906331725`*^9, 3.497639892598776*^9}, {3.5006668696561584`*^9, 
   3.5006668721161623`*^9}, {3.500675666788475*^9, 3.5006756677784758`*^9}, 
   3.5006764070295115`*^9, {3.5048161931416597`*^9, 3.50481619370166*^9}, 
   3.5137247764614363`*^9, {3.5139231329419317`*^9, 3.513923133261932*^9}, 
   3.515183246535348*^9, {3.5165750921276865`*^9, 3.516575111407714*^9}, {
   3.5473997043289957`*^9, 3.5473997043289957`*^9}, {3.54740639448767*^9, 
   3.54740639448767*^9}, {3.547413615216016*^9, 3.5474136154032164`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox["1", 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["1", "a"]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["b", "a"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}], 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497923207991781*^9, {
   3.4991292213496065`*^9, 3.499129226379614*^9}, 3.5006646650530725`*^9, {
   3.5006652709839206`*^9, 3.500665282473937*^9}, 3.5006668515961337`*^9, {
   3.5006668992662*^9, 3.5006669216762314`*^9}, {3.5006756467284465`*^9, 
   3.500675652058454*^9}, {3.500676422829533*^9, 3.500676426179538*^9}, {
   3.505668132210605*^9, 3.505668154310636*^9}, {3.5087906823493433`*^9, 
   3.508790694919361*^9}, {3.513379994056366*^9, 3.51337999677637*^9}, {
   3.5151822833740563`*^9, 3.5151822896296673`*^9}, {3.5165743691146593`*^9, 
   3.5165743732246647`*^9}, {3.5165744577447834`*^9, 
   3.5165744635047913`*^9}, {3.5165745062248507`*^9, 3.516574523114875*^9}, {
   3.5165745602349267`*^9, 3.516574587474965*^9}, {3.5165749628375053`*^9, 
   3.516574978037527*^9}, {3.5467092180961857`*^9, 3.546709261668678*^9}, {
   3.563341139531665*^9, 3.5633411395516653`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "a"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], ",", "x"}], "]"}]}], 
    " ", "-", " ", "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"b", "/", "a"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Csc", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}], "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Csc", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.499129642150196*^9, 3.4991296506002073`*^9}, {3.5007807265629826`*^9, 
   3.500780730282988*^9}, {3.5007815769341736`*^9, 3.5007816235942388`*^9}, {
   3.5007817605844307`*^9, 3.5007817609944315`*^9}, {3.5007817924544754`*^9, 
   3.5007818323945312`*^9}, {3.5133788478747616`*^9, 
   3.5133788480347614`*^9}, {3.5137260126356077`*^9, 3.51372601394601*^9}, {
   3.513726089606143*^9, 3.513726091727747*^9}, {3.5151819383434496`*^9, 
   3.515181949232269*^9}, {3.5410887836279893`*^9, 3.541088803128023*^9}, {
   3.5455831352420425`*^9, 3.5455831396320486`*^9}, {3.5474070735018272`*^9, 
   3.5474070746718287`*^9}, {3.5474071505199356`*^9, 3.547407154919942*^9}, 
   3.547407485146807*^9, {3.5633411395616655`*^9, 3.5633411395716653`*^9}, 
   3.5633412773718576`*^9, {3.5634053203026323`*^9, 3.563405331192647*^9}, 
   3.706139799855742*^9, 3.715459234528304*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[LessEqual]", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9}, 
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9, 
   3.5454163977893934`*^9}, {3.5454168214081373`*^9, 
   3.5454168256513453`*^9}, {3.5454168857582507`*^9, 
   3.5454169106558943`*^9}, {3.5454170438021283`*^9, 
   3.5454170438021283`*^9}, {3.5454172983477755`*^9, 
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9}, 
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9, 
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9, 
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9, 
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5473978108793373`*^9, 
   3.5473978482564754`*^9}, {3.5474060495403833`*^9, 3.5474060628580017`*^9}, 
   3.5474062419010544`*^9, {3.5474065123338356`*^9, 3.5474065123338356`*^9}, 
   3.5474113607918854`*^9, {3.547413688801345*^9, 3.5474136906421485`*^9}, {
   3.5480135710102725`*^9, 3.5480135858702936`*^9}, 3.563341139661665*^9, {
   3.5653722476873283`*^9, 3.565372276027368*^9}, {3.56537294890831*^9, 
   3.5653729530183163`*^9}, {3.565581937261633*^9, 3.5655819406936393`*^9}, 
   3.5983834096159296`*^9, 3.6088497273886156`*^9, 3.608849789578703*^9, {
   3.609296862060515*^9, 3.609296869160525*^9}, 3.6117955881332393`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Symmetric secant recurrence 2b with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "\[Rule]", "1"}], ",", 
   RowBox[{"B", "\[Rule]", "0"}], ",", 
   RowBox[{"m", "\[Rule]", "0"}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.56303300559656*^9, 3.563033010526567*^9}, {
   3.5630332375968847`*^9, 3.563033251186904*^9}, {3.5630353532733574`*^9, 
   3.563035365843375*^9}, {3.5630364723249245`*^9, 3.563036481414937*^9}, {
   3.5630368501854534`*^9, 3.5630368535854583`*^9}, {3.5630379400269794`*^9, 
   3.563037941456981*^9}, {3.563038489137748*^9, 3.5630384976377597`*^9}, {
   3.5630391204686317`*^9, 3.5630391258586392`*^9}, {3.563341649352379*^9, 
   3.5633416495523787`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[LessEqual]", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9, 
   3.5018079522746983`*^9}, {3.5018088942823524`*^9, 3.5018088954991546`*^9}, 
   3.50180892701121*^9, {3.501812061374316*^9, 3.501812073838738*^9}, {
   3.5018891712996063`*^9, 3.5018891721496077`*^9}, 3.5018892149396677`*^9, {
   3.501889870350585*^9, 3.501889877930596*^9}, {3.5019616122915564`*^9, 
   3.5019616122915564`*^9}, {3.501963446484124*^9, 3.5019634484241266`*^9}, {
   3.5019854691076093`*^9, 3.5019854716876125`*^9}, {3.5019858450681353`*^9, 
   3.5019858450681353`*^9}, {3.50198626997873*^9, 3.501986271478732*^9}, 
   3.5021314533978634`*^9, {3.5023184824413586`*^9, 3.5023184926125765`*^9}, {
   3.502318577585926*^9, 3.50231858008193*^9}, {3.502329492721938*^9, 
   3.502329492721938*^9}, {3.50233161170686*^9, 3.5023316148268657`*^9}, {
   3.504489700745121*^9, 3.5044897024751234`*^9}, 3.505164492700603*^9, {
   3.5051648664611263`*^9, 3.5051648686311293`*^9}, {3.5051649653312645`*^9, 
   3.505164969751271*^9}, {3.505195341110135*^9, 3.505195341110135*^9}, 
   3.513387851927367*^9, {3.5133882448479176`*^9, 3.5133882461479187`*^9}, {
   3.5135745631548443`*^9, 3.513574578567672*^9}, {3.5135746371769743`*^9, 
   3.5135746387681775`*^9}, {3.513618068087191*^9, 3.5136180689971924`*^9}, {
   3.514145826625323*^9, 3.5141458272153234`*^9}, {3.5165800476986265`*^9, 
   3.516580048298628*^9}, {3.516592822062439*^9, 3.5165928241724415`*^9}, {
   3.5474063944476695`*^9, 3.5474063944476695`*^9}, {3.548013591040301*^9, 
   3.548013591040301*^9}, {3.563049321425191*^9, 3.563049322005192*^9}, {
   3.5653729715883417`*^9, 3.5653729715883417`*^9}, {3.565581979428507*^9, 
   3.565581979428507*^9}, {3.6092968752005334`*^9, 3.6092968752005334`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Sec", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", "n"}], "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["a", "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "-", 
       RowBox[{"b", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.499404301116287*^9, 
   3.49940430323629*^9}, {3.4994048006769867`*^9, 3.4994048025069895`*^9}, {
   3.5003179811489162`*^9, 3.5003179814297166`*^9}, 3.5003181853432746`*^9, {
   3.5003185563630857`*^9, 3.500318557803087*^9}, {3.5013586287231283`*^9, 
   3.5013586400931444`*^9}, 3.5027672052757444`*^9, 3.5035556969716425`*^9, 
   3.5053446414737844`*^9, {3.505344693303857*^9, 3.505344708433878*^9}, 
   3.5053535619252167`*^9, {3.5094747245329013`*^9, 3.509474861672745*^9}, {
   3.5095533946779337`*^9, 3.509553415627963*^9}, {3.509553538668135*^9, 
   3.5095535518681536`*^9}, {3.5095535889582057`*^9, 
   3.5095536266082582`*^9}, {3.5101725552067585`*^9, 
   3.5101725573127623`*^9}, {3.5101728674101067`*^9, 
   3.5101728711385136`*^9}, {3.510173662715104*^9, 3.510173677129529*^9}, 
   3.5102536435885286`*^9, {3.513292062852798*^9, 3.513292242867111*^9}, {
   3.5132923801169157`*^9, 3.5132923861569242`*^9}, {3.5133942235351763`*^9, 
   3.5133943581717653`*^9}, {3.5136073575550575`*^9, 
   3.5136074705616565`*^9}, {3.513607547157791*^9, 3.513607554115403*^9}, {
   3.5151820605228643`*^9, 3.515182072956086*^9}, 3.515182125216178*^9, {
   3.5630380795271745`*^9, 3.563038082997179*^9}, {3.563341139671665*^9, 
   3.563341139691665*^9}, 3.5633411762017164`*^9, 3.563341740392506*^9, {
   3.626922936563501*^9, 3.6269229422127113`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Cot", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Csc", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], "-", 
          RowBox[{"b", "*", 
           RowBox[{"(", 
            RowBox[{"n", "+", "1"}], ")"}], "*", 
           RowBox[{"Csc", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LeQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9, 
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9, 
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9}, 
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9}, 
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9}, 
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9, 
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9, 
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9}, 
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9, 
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9, 
   3.5018074743646593`*^9}, {3.5018079781707435`*^9, 
   3.5018079845979548`*^9}, {3.501808142938233*^9, 3.501808157227858*^9}, {
   3.501808857045087*^9, 3.501808860570693*^9}, {3.501808898962361*^9, 
   3.501808916137991*^9}, {3.501815185950604*^9, 3.501815193859818*^9}, 
   3.5018153663025208`*^9, {3.501963510624214*^9, 3.5019635224342303`*^9}, {
   3.5019853143173923`*^9, 3.501985331897417*^9}, {3.5023186901245236`*^9, 
   3.5023186995781403`*^9}, {3.502328108500306*^9, 3.5023281359095545`*^9}, {
   3.502329683447873*^9, 3.502329705787112*^9}, 3.502329766050018*^9, {
   3.5023316434061155`*^9, 3.5023316474465227`*^9}, {3.5023338521983953`*^9, 
   3.5023338551468005`*^9}, 3.502388666141232*^9, 3.5033390786331153`*^9, {
   3.5051874883769846`*^9, 3.505187491383157*^9}, 3.5051895386622543`*^9, {
   3.505355146767435*^9, 3.505355163097458*^9}, 3.505355198127507*^9, 
   3.5053635303733854`*^9, 3.5133879447774973`*^9, {3.513388013527593*^9, 
   3.513388014077594*^9}, 3.513388079607686*^9, 3.513388129147755*^9, 
   3.513394426691861*^9, 3.513440981923106*^9, {3.5136075185941405`*^9, 
   3.5136075367213726`*^9}, {3.5136076232703247`*^9, 
   3.5136076660611997`*^9}, {3.5136077097256765`*^9, 
   3.5136077199280944`*^9}, {3.541088871159743*^9, 3.541088880348159*^9}, {
   3.5455831318620377`*^9, 3.5455831325420384`*^9}, 3.5474069582644644`*^9, 
   3.5474070673142185`*^9, 3.5474071402899213`*^9, 3.547407485126807*^9, {
   3.548013596160308*^9, 3.5480135972003093`*^9}, {3.563341139701665*^9, 
   3.563341139711665*^9}, 3.5633411762217164`*^9, 3.563341277421858*^9, 
   3.5633417501125197`*^9, {3.5634053615926895`*^9, 3.563405374692708*^9}, 
   3.5653722639873514`*^9, {3.565372960818327*^9, 3.565372961608328*^9}, 
   3.565581985481318*^9, {3.5788567686790743`*^9, 3.5788567707290773`*^9}, 
   3.6088502811693907`*^9, {3.6269229533531303`*^9, 3.626922956753937*^9}, 
   3.706139799875742*^9, {3.715459234537305*^9, 3.7154592652470613`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]],
       "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368261571748*^9}, {
   3.5653699708741407`*^9, 3.5653699710741415`*^9}, {3.5653707305152044`*^9, 
   3.5653707346152105`*^9}, {3.608848375031717*^9, 3.608848390911739*^9}, 
   3.6088497238386106`*^9, 3.6117955850400624`*^9, {3.6631712041034403`*^9, 
   3.6631712043674555`*^9}, {3.6637343070965996`*^9, 3.6637343070965996`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ",
        "\[And]", " ", 
       RowBox[{"a", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, 3.564342051807798*^9, {
   3.564348517870756*^9, 3.564348570708049*^9}, {3.5643495588137846`*^9, 
   3.564349565287796*^9}, 3.5643496973420277`*^9, {3.565372992118371*^9, 
   3.565372992348371*^9}, {3.565373114508542*^9, 3.5653731189585485`*^9}, {
   3.5983834279059553`*^9, 3.598383428175956*^9}, {3.5983971750558195`*^9, 
   3.59839717522582*^9}, {3.6088497518786497`*^9, 3.6088497521186504`*^9}, 
   3.611795588685271*^9, {3.6271452847519608`*^9, 3.6271453083819942`*^9}, {
   3.6271453552030606`*^9, 3.6271453561030617`*^9}, {3.627147852368131*^9, 
   3.627147852368131*^9}, {3.662750266614258*^9, 3.6627502791649756`*^9}, {
   3.663126557710721*^9, 3.663126557903732*^9}, {3.663128202995826*^9, 
   3.6631282031608353`*^9}, {3.663171206267564*^9, 3.663171225031637*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction and integration by substitution\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9, 
   3.4975766222178564`*^9, {3.515622758908077*^9, 3.5156227652274384`*^9}, {
   3.662749643382611*^9, 3.6627496481998863`*^9}}],

Cell[TextData[{
 "Basis",
 ": If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{" ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}], 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]], 
      SqrtBox[
       RowBox[{"1", "-", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]]}]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4990190900757537`*^9, 3.4990190900757537`*^9}, {3.4990193104160624`*^9, 
   3.4990193104160624`*^9}, {3.499019370396146*^9, 3.499019370396146*^9}, {
   3.5156209247561693`*^9, 3.5156209286543922`*^9}, {3.515622822306703*^9, 
   3.5156228246708384`*^9}, {3.5156229607426214`*^9, 
   3.5156229738013678`*^9}, {3.562091329247202*^9, 3.562091329247202*^9}, {
   3.562428201883213*^9, 3.562428202383214*^9}, {3.562428612523788*^9, 
   3.5624286129437885`*^9}, {3.562428696863906*^9, 3.562428696863906*^9}, {
   3.562428947504257*^9, 3.5624289484942584`*^9}, {3.562431490917818*^9, 
   3.562431490917818*^9}, {3.563465048049525*^9, 3.5634650480505247`*^9}, {
   3.567475920280633*^9, 3.5674759403506613`*^9}, {3.56749257861296*^9, 
   3.567492591552978*^9}, {3.6239628659737005`*^9, 3.6239628659737005`*^9}, {
   3.6627492563364735`*^9, 3.6627492563364735`*^9}, {3.662749353651039*^9, 
   3.6627493601904135`*^9}, {3.663171360910409*^9, 3.663171360910409*^9}}],

Cell[TextData[{
 "Basis",
 ": If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"a", ">", "0"}]}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}], 
      RowBox[{
       SqrtBox[
        RowBox[{"1", "+", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]], 
       SqrtBox[
        RowBox[{"1", "-", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]]}]]}], " ", 
    FractionBox[
     RowBox[{" ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}], 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["b", "a"], " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]], " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        RowBox[{
         FractionBox["b", "a"], " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}], "\[Equal]", "1"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4990190900757537`*^9, 3.4990190900757537`*^9}, {3.4990193104160624`*^9, 
   3.4990193104160624`*^9}, {3.499019370396146*^9, 3.499019370396146*^9}, {
   3.5156209247561693`*^9, 3.5156209286543922`*^9}, {3.515622822306703*^9, 
   3.5156228246708384`*^9}, {3.5156229607426214`*^9, 
   3.5156229738013678`*^9}, {3.562091329247202*^9, 3.562091329247202*^9}, {
   3.562428201883213*^9, 3.562428202383214*^9}, {3.562428612523788*^9, 
   3.5624286129437885`*^9}, {3.562428696863906*^9, 3.562428696863906*^9}, {
   3.562428947504257*^9, 3.5624289484942584`*^9}, {3.562431490917818*^9, 
   3.562431490917818*^9}, {3.563465048049525*^9, 3.5634650480505247`*^9}, {
   3.567475920280633*^9, 3.5674759403506613`*^9}, {3.56749257861296*^9, 
   3.567492591552978*^9}, {3.6239628659737005`*^9, 3.6239628659737005`*^9}, {
   3.6627492563364735`*^9, 3.6627492563364735`*^9}, {3.662749353651039*^9, 
   3.6627493601904135`*^9}, {3.6627495163363447`*^9, 
   3.6627495163363447`*^9}, {3.663171747886543*^9, 3.6631717527618217`*^9}, {
   3.6631719692052016`*^9, 3.6631719692052016`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"Tan", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], " ", 
    RowBox[{"F", "[", 
     RowBox[{"Sec", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "d"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"F", "[", "x", "]"}], "x"], ",", "x", ",", 
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Sec", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4990190900757537`*^9, 3.4990190900757537`*^9}, {3.4990193104160624`*^9, 
   3.4990193104160624`*^9}, {3.499019370396146*^9, 3.499019370396146*^9}, {
   3.5156209247561693`*^9, 3.5156209286543922`*^9}, {3.515622822306703*^9, 
   3.5156228246708384`*^9}, {3.5156229607426214`*^9, 
   3.5156229738013678`*^9}, {3.562091329247202*^9, 3.562091329247202*^9}, {
   3.562428201883213*^9, 3.562428202383214*^9}, {3.562428612523788*^9, 
   3.5624286129437885`*^9}, {3.562428696863906*^9, 3.562428696863906*^9}, {
   3.562428947504257*^9, 3.5624289484942584`*^9}, {3.562431490917818*^9, 
   3.562431490917818*^9}, {3.563465048049525*^9, 3.5634650480505247`*^9}, {
   3.567475920280633*^9, 3.5674759403506613`*^9}, {3.56749257861296*^9, 
   3.567492591552978*^9}, {3.6239628659737005`*^9, 3.6239628659737005`*^9}, {
   3.6627492563364735`*^9, 3.6627492563364735`*^9}, {3.662749353651039*^9, 
   3.6627493601904135`*^9}, {3.6627495163363447`*^9, 
   3.6627495163363447`*^9}, {3.662749810126148*^9, 3.6627498198907065`*^9}, {
   3.66274987782302*^9, 3.66274987782302*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"2", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{"a", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.4975772088912835`*^9, 
   3.4975772155212927`*^9}, {3.561760628131563*^9, 3.5617606456415873`*^9}, {
   3.561765874828909*^9, 3.561765874828909*^9}, {3.5621083953749905`*^9, 
   3.5621083953749905`*^9}, {3.564341543090904*^9, 3.5643415539641237`*^9}, {
   3.564341601715807*^9, 3.564341601715807*^9}, {3.564348536606389*^9, 
   3.564348536606389*^9}, {3.5643495712470064`*^9, 3.5643495712470064`*^9}, {
   3.5653731233785543`*^9, 3.5653731233785543`*^9}, {3.627145316052005*^9, 
   3.627145316052005*^9}, {3.627145697348547*^9, 3.627145698342549*^9}, {
   3.6271478545481343`*^9, 3.6271478545481343`*^9}, {3.662750270162461*^9, 
   3.662750270162461*^9}, {3.663171232125043*^9, 3.663171232125043*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox["a", "n"]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["b", "a"], " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["a", "n"], " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], "]"}]}], 
         RowBox[{
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"Sec", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]], 
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{"Sec", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]]}]]}]}]}], " ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{" ", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["b", "a"], " ", 
              RowBox[{"Sec", "[", 
               RowBox[{"c", "+", 
                RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
           RowBox[{"n", "-", 
            FractionBox["1", "2"]}]]}]}], 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{
           FractionBox["b", "a"], " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], 
       RowBox[{"\[DifferentialD]", 
        RowBox[{
        "x", "  ", "\[LongRightArrow]", " ", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "n"], " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}], 
           RowBox[{"d", " ", 
            SqrtBox[
             RowBox[{"1", "+", 
              RowBox[{"Sec", "[", 
               RowBox[{"c", "+", 
                RowBox[{"d", " ", "x"}]}], "]"}]}]], 
            SqrtBox[
             RowBox[{"1", "-", 
              RowBox[{"Sec", "[", 
               RowBox[{"c", "+", 
                RowBox[{"d", " ", "x"}]}], "]"}]}]]}]]}]}]}], " ", 
       RowBox[{"Subst", "[", 
        RowBox[{
         RowBox[{"\[Integral]", 
          RowBox[{
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", 
               FractionBox[
                RowBox[{"b", " ", "x"}], "a"]}], ")"}], 
             RowBox[{"n", "-", 
              FractionBox["1", "2"]}]], 
            RowBox[{"x", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"b", " ", "x"}], "a"]}]]}]], 
           RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}], 
        "]"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, 3.4975771973412676`*^9, {
   3.4990190901157537`*^9, 3.4990190901157537`*^9}, 3.499019132695813*^9, {
   3.4990197405566645`*^9, 3.499019740946665*^9}, {3.515363025542725*^9, 
   3.515363028242729*^9}, {3.51536309312282*^9, 3.5153630951028223`*^9}, {
   3.5617578691252003`*^9, 3.561757870695203*^9}, 3.5617580161154065`*^9, 
   3.561760491031371*^9, 3.5617653890782285`*^9, {3.5617656399785795`*^9, 
   3.5617656439385853`*^9}, {3.5621083963889923`*^9, 
   3.5621084033778048`*^9}, {3.562294045979294*^9, 3.5622940645193195`*^9}, 
   3.5643413894306345`*^9, 3.56434207583184*^9, 3.564347394975584*^9, {
   3.564347565390283*^9, 3.5643476087115593`*^9}, {3.5643479009624724`*^9, 
   3.5643479122256927`*^9}, 3.564347969805393*^9, {3.5643496768435917`*^9, 
   3.5643496794955964`*^9}, 3.5643497340800924`*^9, {3.626923061345521*^9, 
   3.626923067042531*^9}, 3.6269231055941987`*^9, 3.626923183960137*^9, {
   3.6269232267404127`*^9, 3.6269232728732805`*^9}, {3.626923320391567*^9, 
   3.626923331139986*^9}, {3.6269233628432417`*^9, 3.6269233829672775`*^9}, {
   3.6269234166029367`*^9, 3.626923446291789*^9}, {3.6269235198051186`*^9, 
   3.6269235260607295`*^9}, {3.627097992155734*^9, 3.6270980328405285`*^9}, {
   3.6271454336321726`*^9, 3.627145448201194*^9}, {3.662749274395506*^9, 
   3.6627492834740252`*^9}, {3.6627495416397915`*^9, 3.662749590625593*^9}, {
   3.6627496272536883`*^9, 3.662749635025133*^9}, {3.6627499205314627`*^9, 
   3.6627499994269753`*^9}, {3.662750044154534*^9, 3.6627500699360085`*^9}, {
   3.663171464888356*^9, 3.663171536341443*^9}, 3.663171767147644*^9, {
   3.663171850517413*^9, 3.6631718689014645`*^9}, {3.663172014335783*^9, 
   3.663172041875358*^9}, {3.6631720787594676`*^9, 3.663172080938592*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5617657388387184`*^9, 3.561765742248723*^9}, {
   3.564341430474306*^9, 3.5643414348111143`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "^", "n"}], "*", 
    RowBox[{
     RowBox[{"Cot", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"d", "*", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "+", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}], "*", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], ")"}]}], "*", "\n", 
    "    ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"b", "*", 
             RowBox[{"x", "/", "a"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "-", 
            RowBox[{"1", "/", "2"}]}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"x", "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"b", "*", 
              RowBox[{"x", "/", "a"}]}]}], "]"}]}], ")"}]}], ",", "x"}], 
       "]"}], ",", "x", ",", 
      RowBox[{"Csc", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", 
      RowBox[{"2", "*", "n"}], "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"a", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, 3.4975770106310062`*^9, {
   3.4990190901257534`*^9, 3.4990190901257534`*^9}, 3.499019132695813*^9, 
   3.499019732846654*^9, {3.5153630292127304`*^9, 3.515363033242736*^9}, {
   3.515363096922825*^9, 3.5153631007928305`*^9}, 3.561750583900137*^9, 
   3.561751448821348*^9, {3.5617578933952346`*^9, 3.561757894375236*^9}, {
   3.5617579395352993`*^9, 3.5617579675853386`*^9}, 3.56175801864541*^9, {
   3.561758350168374*^9, 3.5617583690684004`*^9}, {3.561758419948472*^9, 
   3.5617584261884804`*^9}, {3.5617605305114264`*^9, 
   3.5617605379814367`*^9}, {3.5617606504715943`*^9, 3.561760659451607*^9}, {
   3.5617657390687184`*^9, 3.5617657547687407`*^9}, {3.5617657955787973`*^9, 
   3.561765799428803*^9}, {3.5617658326788497`*^9, 3.561765838518858*^9}, {
   3.5621084044542065`*^9, 3.5621084121450195`*^9}, {3.56229410072937*^9, 
   3.5622941870294914`*^9}, {3.564341437088718*^9, 3.5643414526107454`*^9}, {
   3.564341556647328*^9, 3.5643415768493633`*^9}, {3.5643420778910437`*^9, 
   3.5643420783122444`*^9}, 3.564348016730276*^9, {3.56434818426417*^9, 
   3.564348222796238*^9}, {3.564349709213649*^9, 3.5643497124116545`*^9}, {
   3.56434978389098*^9, 3.564349787026585*^9}, {3.5653731512885933`*^9, 
   3.5653731532785964`*^9}, {3.626923642894335*^9, 3.6269236454215393`*^9}, {
   3.6270981169069424`*^9, 3.6270981188350353`*^9}, {3.627145328529022*^9, 
   3.627145360513068*^9}, {3.627145608792422*^9, 3.627145615412431*^9}, {
   3.6271478778881683`*^9, 3.6271478874281816`*^9}, {3.6627501961312265`*^9, 
   3.6627502369405603`*^9}, 3.6627503485609446`*^9, {3.663126571713522*^9, 
   3.663126575640746*^9}, {3.663128211180294*^9, 3.6631282162935867`*^9}, {
   3.6631702220222683`*^9, 3.6631702312407956`*^9}, {3.6631712369933214`*^9, 
   3.663171241451576*^9}, 3.663171307529356*^9, {3.6631721889467697`*^9, 
   3.663172203090579*^9}, {3.663172254453517*^9, 3.6631722553145657`*^9}, 
   3.706139799915742*^9, 3.715459234546305*^9, {3.7154592730695086`*^9, 
   3.715459275116626*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ",
        "\[And]", " ", 
       RowBox[{"a", "\[NotGreater]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, 3.564342051807798*^9, {
   3.564348517870756*^9, 3.564348570708049*^9}, {3.5643495588137846`*^9, 
   3.564349565287796*^9}, 3.5643496973420277`*^9, {3.565372992118371*^9, 
   3.565372992348371*^9}, {3.565373114508542*^9, 3.5653731189585485`*^9}, {
   3.5983834279059553`*^9, 3.598383428175956*^9}, {3.5983971750558195`*^9, 
   3.59839717522582*^9}, {3.6088497518786497`*^9, 3.6088497521186504`*^9}, 
   3.611795588685271*^9, {3.6271452847519608`*^9, 3.6271453083819942`*^9}, {
   3.6271453552030606`*^9, 3.6271453561030617`*^9}, {3.627147852368131*^9, 
   3.627147852368131*^9}, {3.662750266614258*^9, 3.6627502791649756`*^9}, {
   3.662752635429746*^9, 3.6627526773561444`*^9}, {3.66291585746826*^9, 
   3.66291585746826*^9}, {3.6629173947661877`*^9, 3.662917396792304*^9}, 
   3.6629177220309067`*^9, {3.66294710175333*^9, 3.6629471025883784`*^9}, {
   3.6629479387722054`*^9, 3.6629479387722054`*^9}, {3.662949943269856*^9, 
   3.6629499444319224`*^9}, {3.6629504597503967`*^9, 3.662950460291428*^9}, {
   3.6630024917720895`*^9, 3.66300249206849*^9}, 3.6630285057873435`*^9, {
   3.663131279189774*^9, 3.6631312793797846`*^9}, {3.663161973816498*^9, 
   3.6631619785147667`*^9}, {3.6631647464340825`*^9, 3.663164746667096*^9}, {
   3.66316891078427*^9, 3.663168921907906*^9}, 3.6631696561769037`*^9, {
   3.6631753535127726`*^9, 3.663175356014916*^9}, {3.663175738501793*^9, 
   3.663175738732806*^9}, 3.6631771095162106`*^9, 3.663198486510892*^9, 
   3.6637289486147833`*^9, {3.6637305299215384`*^9, 3.6637305377955494`*^9}, {
   3.6637327958120875`*^9, 3.6637327998020935`*^9}, {3.6637329598754687`*^9, 
   3.663732960974471*^9}, {3.6637343485106583`*^9, 3.663734391900722*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9, 
   3.4975766222178564`*^9, {3.515622758908077*^9, 3.5156227652274384`*^9}, {
   3.662749643382611*^9, 3.6627496481998863`*^9}, 3.663730620671668*^9}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["b", "a"], " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]]}], "\[Equal]", 
   "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4990190900757537`*^9, 3.4990190900757537`*^9}, {3.4990193104160624`*^9, 
   3.4990193104160624`*^9}, {3.499019370396146*^9, 3.499019370396146*^9}, {
   3.5156209247561693`*^9, 3.5156209286543922`*^9}, {3.515622822306703*^9, 
   3.5156228246708384`*^9}, {3.5156229607426214`*^9, 
   3.5156229738013678`*^9}, {3.562091329247202*^9, 3.562091329247202*^9}, {
   3.562428201883213*^9, 3.562428202383214*^9}, {3.562428612523788*^9, 
   3.5624286129437885`*^9}, {3.562428696863906*^9, 3.562428696863906*^9}, {
   3.562428947504257*^9, 3.5624289484942584`*^9}, {3.562431490917818*^9, 
   3.562431490917818*^9}, {3.563465048049525*^9, 3.5634650480505247`*^9}, {
   3.567475920280633*^9, 3.5674759403506613`*^9}, {3.56749257861296*^9, 
   3.567492591552978*^9}, {3.6239628659737005`*^9, 3.6239628659737005`*^9}, {
   3.6627492563364735`*^9, 3.6627492563364735`*^9}, {3.662749353651039*^9, 
   3.6627493601904135`*^9}, {3.662752718524499*^9, 3.662752719451552*^9}, {
   3.6629477336944757`*^9, 3.662947736417631*^9}, {3.6629477895936728`*^9, 
   3.6629477913167715`*^9}, {3.662949759511346*^9, 3.6629497744772015`*^9}, {
   3.66295282514769*^9, 3.66295282514769*^9}, {3.6629540790964117`*^9, 
   3.6629540790964117`*^9}, {3.6631643582988825`*^9, 
   3.6631643582988825`*^9}, {3.663730599021638*^9, 3.6637306131716576`*^9}, {
   3.6637344679038296`*^9, 3.663734494162867*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"2", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{"a", "\[NotGreater]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.4975772088912835`*^9, 
   3.4975772155212927`*^9}, {3.561760628131563*^9, 3.5617606456415873`*^9}, {
   3.561765874828909*^9, 3.561765874828909*^9}, {3.5621083953749905`*^9, 
   3.5621083953749905`*^9}, {3.564341543090904*^9, 3.5643415539641237`*^9}, {
   3.564341601715807*^9, 3.564341601715807*^9}, {3.564348536606389*^9, 
   3.564348536606389*^9}, {3.5643495712470064`*^9, 3.5643495712470064`*^9}, {
   3.5653731233785543`*^9, 3.5653731233785543`*^9}, {3.627145316052005*^9, 
   3.627145316052005*^9}, {3.627145697348547*^9, 3.627145698342549*^9}, {
   3.6271478545481343`*^9, 3.6271478545481343`*^9}, {3.662750270162461*^9, 
   3.662750270162461*^9}, {3.6627527039326644`*^9, 3.6627527039326644`*^9}, {
   3.6629167908576465`*^9, 3.6629167908576465`*^9}, {3.662948194197815*^9, 
   3.662948194197815*^9}, {3.6629543207302322`*^9, 3.662954328348668*^9}, {
   3.663162172836881*^9, 3.663162172836881*^9}, {3.663168952414651*^9, 
   3.663168952414651*^9}, {3.663175476633815*^9, 3.663175476633815*^9}, {
   3.6637305553675747`*^9, 3.6637305553675747`*^9}, {3.663734495022868*^9, 
   3.663734511003891*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"IntPart", "[", "n", "]"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
        RowBox[{"FracPart", "[", "n", "]"}]]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["b", "a"], " ", 
          RowBox[{"Sec", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
       RowBox[{"FracPart", "[", "n", "]"}]]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["b", "a"], " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, 3.4975771973412676`*^9, {
   3.4990190901157537`*^9, 3.4990190901157537`*^9}, 3.499019132695813*^9, {
   3.4990197405566645`*^9, 3.499019740946665*^9}, {3.515363025542725*^9, 
   3.515363028242729*^9}, {3.51536309312282*^9, 3.5153630951028223`*^9}, {
   3.5617578691252003`*^9, 3.561757870695203*^9}, 3.5617580161154065`*^9, 
   3.561760491031371*^9, 3.5617653890782285`*^9, {3.5617656399785795`*^9, 
   3.5617656439385853`*^9}, {3.5621083963889923`*^9, 
   3.5621084033778048`*^9}, {3.562294045979294*^9, 3.5622940645193195`*^9}, 
   3.5643413894306345`*^9, 3.56434207583184*^9, 3.564347394975584*^9, {
   3.564347565390283*^9, 3.5643476087115593`*^9}, {3.5643479009624724`*^9, 
   3.5643479122256927`*^9}, 3.564347969805393*^9, {3.5643496768435917`*^9, 
   3.5643496794955964`*^9}, 3.5643497340800924`*^9, {3.626923061345521*^9, 
   3.626923067042531*^9}, 3.6269231055941987`*^9, 3.626923183960137*^9, {
   3.6269232267404127`*^9, 3.6269232728732805`*^9}, {3.626923320391567*^9, 
   3.626923331139986*^9}, {3.6269233628432417`*^9, 3.6269233829672775`*^9}, {
   3.6269234166029367`*^9, 3.626923446291789*^9}, {3.6269235198051186`*^9, 
   3.6269235260607295`*^9}, {3.627097992155734*^9, 3.6270980328405285`*^9}, {
   3.6271454336321726`*^9, 3.627145448201194*^9}, {3.662749274395506*^9, 
   3.6627492834740252`*^9}, {3.6627495416397915`*^9, 3.662749590625593*^9}, {
   3.6627496272536883`*^9, 3.662749635025133*^9}, {3.6627499205314627`*^9, 
   3.6627499994269753`*^9}, {3.662750044154534*^9, 3.6627500699360085`*^9}, {
   3.662752723170765*^9, 3.6627527408957787`*^9}, 3.662752772061561*^9, {
   3.662752888120199*^9, 3.662752897657745*^9}, {3.6627529337048063`*^9, 
   3.6627530177556143`*^9}, {3.6629163069129667`*^9, 
   3.6629163205237446`*^9}, {3.6629168495370026`*^9, 3.662916892091437*^9}, {
   3.662916943390371*^9, 3.6629169494567175`*^9}, {3.662917086125535*^9, 
   3.662917114798175*^9}, {3.662947111465886*^9, 3.662947125992717*^9}, 
   3.6629477122762504`*^9, {3.6629479927292914`*^9, 3.6629480046699743`*^9}, {
   3.662948170392453*^9, 3.6629481831611834`*^9}, 3.662948233087039*^9, 
   3.6629498717787666`*^9, 3.6629499178734035`*^9, {3.6629499661171627`*^9, 
   3.662949972461526*^9}, {3.662950158422162*^9, 3.6629501589071894`*^9}, 
   3.662950427597558*^9, {3.6629504726671357`*^9, 3.662950483985783*^9}, {
   3.662950518594763*^9, 3.6629505213429203`*^9}, {3.662950561247202*^9, 
   3.6629505672315445`*^9}, {3.6629506621709747`*^9, 
   3.6629506654321613`*^9}, {3.6629508171368384`*^9, 3.662950854251961*^9}, {
   3.662950912517294*^9, 3.6629509258050537`*^9}, 3.662950997479153*^9, {
   3.662951547744627*^9, 3.6629515651326213`*^9}, 3.6629516926849165`*^9, 
   3.662952899437939*^9, {3.6629539371612935`*^9, 3.6629539785266595`*^9}, {
   3.6629540565061197`*^9, 3.6629540622214465`*^9}, {3.662954198922265*^9, 
   3.662954199270285*^9}, {3.6631619937846403`*^9, 3.663162006331358*^9}, {
   3.663162155471888*^9, 3.6631621874777184`*^9}, {3.6631632985842705`*^9, 
   3.66316330276851*^9}, 3.663163336599445*^9, 3.6631636948179336`*^9, {
   3.663163830765709*^9, 3.6631638431384172`*^9}, {3.663164101368187*^9, 
   3.6631641346720915`*^9}, {3.663164221837077*^9, 3.6631642242512155`*^9}, 
   3.6631643457461643`*^9, {3.6631648156510415`*^9, 3.663164832618012*^9}, {
   3.663164970957925*^9, 3.6631649731300488`*^9}, {3.663165003780802*^9, 
   3.6631650220088444`*^9}, {3.663730638056693*^9, 3.6637306688767366`*^9}, {
   3.6637307071347914`*^9, 3.663730745581846*^9}, {3.663734469013831*^9, 
   3.6637344988228736`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5617657388387184`*^9, 3.561765742248723*^9}, {
   3.564341430474306*^9, 3.5643414348111143`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "^", 
     RowBox[{"IntPart", "[", "n", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
      RowBox[{"FracPart", "[", "n", "]"}]}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"b", "/", "a"}], "*", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
      RowBox[{"FracPart", "[", "n", "]"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"b", "/", "a"}], "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", 
      RowBox[{"2", "*", "n"}], "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"GtQ", "[", 
      RowBox[{"a", ",", "0"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, 3.4975770106310062`*^9, {
   3.4990190901257534`*^9, 3.4990190901257534`*^9}, 3.499019132695813*^9, 
   3.499019732846654*^9, {3.5153630292127304`*^9, 3.515363033242736*^9}, {
   3.515363096922825*^9, 3.5153631007928305`*^9}, 3.561750583900137*^9, 
   3.561751448821348*^9, {3.5617578933952346`*^9, 3.561757894375236*^9}, {
   3.5617579395352993`*^9, 3.5617579675853386`*^9}, 3.56175801864541*^9, {
   3.561758350168374*^9, 3.5617583690684004`*^9}, {3.561758419948472*^9, 
   3.5617584261884804`*^9}, {3.5617605305114264`*^9, 
   3.5617605379814367`*^9}, {3.5617606504715943`*^9, 3.561760659451607*^9}, {
   3.5617657390687184`*^9, 3.5617657547687407`*^9}, {3.5617657955787973`*^9, 
   3.561765799428803*^9}, {3.5617658326788497`*^9, 3.561765838518858*^9}, {
   3.5621084044542065`*^9, 3.5621084121450195`*^9}, {3.56229410072937*^9, 
   3.5622941870294914`*^9}, {3.564341437088718*^9, 3.5643414526107454`*^9}, {
   3.564341556647328*^9, 3.5643415768493633`*^9}, {3.5643420778910437`*^9, 
   3.5643420783122444`*^9}, 3.564348016730276*^9, {3.56434818426417*^9, 
   3.564348222796238*^9}, {3.564349709213649*^9, 3.5643497124116545`*^9}, {
   3.56434978389098*^9, 3.564349787026585*^9}, {3.5653731512885933`*^9, 
   3.5653731532785964`*^9}, {3.626923642894335*^9, 3.6269236454215393`*^9}, {
   3.6270981169069424`*^9, 3.6270981188350353`*^9}, {3.627145328529022*^9, 
   3.627145360513068*^9}, {3.627145608792422*^9, 3.627145615412431*^9}, {
   3.6271478778881683`*^9, 3.6271478874281816`*^9}, {3.6627501961312265`*^9, 
   3.662750198938387*^9}, 3.6627503472598705`*^9, {3.6627531067877064`*^9, 
   3.662753216225966*^9}, {3.6629172277846375`*^9, 3.662917230026766*^9}, 
   3.66291726665386*^9, {3.662952405591693*^9, 3.6629524076538105`*^9}, {
   3.6629524880694103`*^9, 3.6629524986330147`*^9}, {3.662953545847912*^9, 
   3.6629535486080694`*^9}, {3.662953679446553*^9, 3.662953713069476*^9}, {
   3.663164571340068*^9, 3.6631645934903345`*^9}, 3.6631648999408627`*^9, {
   3.6631651550774555`*^9, 3.6631651915105395`*^9}, {3.6631689585770035`*^9, 
   3.6631689668914785`*^9}, {3.6631754835322094`*^9, 
   3.6631754908936305`*^9}, {3.6637308058069344`*^9, 3.6637308202969546`*^9}, 
   3.663732977869495*^9, 3.66373336064804*^9, {3.6637344246697693`*^9, 
   3.663734438211788*^9}, {3.6637345564369555`*^9, 3.663734559959961*^9}, {
   3.6637346251130524`*^9, 3.6637346688871145`*^9}, 3.706139799935742*^9, 
   3.7154592345553055`*^9, 3.7154592815169916`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
      RowBox[{
       RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368272971764*^9}, {
   3.5653683065518107`*^9, 3.565368306861811*^9}, {3.5653699874041643`*^9, 
   3.5653699876341643`*^9}, {3.5653707318152065`*^9, 3.565370735935212*^9}, 
   3.5653716846765404`*^9, {3.6092964470599337`*^9, 3.60929647302997*^9}, 
   3.6117955897613325`*^9, {3.6757078863651257`*^9, 3.6757078876591997`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368272971764*^9}, {
   3.5653683065518107`*^9, 3.565368306861811*^9}, {3.5653699874041643`*^9, 
   3.5653699876341643`*^9}, {3.5653707318152065`*^9, 3.565370735935212*^9}, 
   3.5653716846765404`*^9, {3.6092964470599337`*^9, 3.6092965104500227`*^9}, 
   3.611795590235359*^9, 3.675707933830841*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450663314814796`*^9, 3.5450663316414795`*^9}, 3.5454973458879566`*^9, 
   3.5455060521401453`*^9, {3.545506909391345*^9, 3.5455069117413483`*^9}, {
   3.5455073827220078`*^9, 3.545507383482009*^9}, {3.5455122633376427`*^9, 
   3.545512292647684*^9}, {3.5455136996796536`*^9, 3.5455136998196535`*^9}, {
   3.5455142924844*^9, 3.5455142924844*^9}, 3.5455143371719556`*^9, {
   3.5455144768269434`*^9, 3.5455144770239544`*^9}, {3.5455154370398645`*^9, 
   3.5455154542288475`*^9}, 3.545685845514475*^9, {3.5474133258449087`*^9, 
   3.5474133282941127`*^9}, {3.5480129274193716`*^9, 3.548012927639372*^9}, 
   3.5633411391016645`*^9, {3.565371815816724*^9, 3.565371816026724*^9}, 
   3.609296454209944*^9, 3.6117955907223873`*^9, 3.6757079344718776`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, 
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9, 
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9, 
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9, 
   3.5062138967830486`*^9}, {3.5062141332678576`*^9, 
   3.5062141507378817`*^9}, {3.5105084879028864`*^9, 3.510508488090087*^9}, {
   3.5130944226480646`*^9, 3.5130944467345066`*^9}, 3.51309510891803*^9, 
   3.514147239737301*^9, {3.514487372506321*^9, 3.5144873727363214`*^9}, {
   3.5165576820821433`*^9, 3.5165576820821433`*^9}, {3.5165582083062663`*^9, 
   3.5165582086338673`*^9}, 3.5165908254196434`*^9, {3.5454161012016726`*^9, 
   3.5454161012016726`*^9}, {3.545430104665186*^9, 3.545430105025186*^9}, {
   3.545505660519597*^9, 3.545505660519597*^9}, {3.5456858910345387`*^9, 
   3.5456858916545396`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}], 
       RowBox[{"d", " ", 
        SqrtBox[
         RowBox[{"a", "+", "b"}]], 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]]}]}]}], " ", 
   SqrtBox[
    FractionBox[
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], " ", 
   SqrtBox[
    RowBox[{"-", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]], " ", 
   RowBox[{"EllipticPi", "[", 
    RowBox[{
     FractionBox["a", 
      RowBox[{"a", "+", "b"}]], ",", 
     RowBox[{"ArcSin", "[", 
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+", "b"}]], 
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Sec", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], "]"}], ",", 
     FractionBox[
      RowBox[{"a", "-", "b"}], 
      RowBox[{"a", "+", "b"}]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9, 
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9}, 
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9, 
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9, 
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5098355380753117`*^9, 3.509835661752329*^9}, {3.509835695323588*^9, 
   3.509835698927194*^9}, {3.50983577051572*^9, 3.5098358512614617`*^9}, {
   3.5101827368266892`*^9, 3.510182745344304*^9}, {3.5101829999523516`*^9, 
   3.510183019686386*^9}, {3.5141366663504972`*^9, 3.514136709830558*^9}, {
   3.5141367652306356`*^9, 3.5141367807606573`*^9}, {3.5141369190408506`*^9, 
   3.514137030991008*^9}, {3.5141375883017883`*^9, 3.5141375939117956`*^9}, {
   3.51414390318263*^9, 3.5141439034726305`*^9}, {3.5151675869436274`*^9, 
   3.5151675899036317`*^9}, {3.5455069168013554`*^9, 
   3.5455069411613894`*^9}, {3.5455073910720196`*^9, 3.5455074883421555`*^9}, 
   3.545507687172434*^9, 3.545510899365733*^9, 3.545512278107663*^9, {
   3.545513241529012*^9, 3.545513266989048*^9}, {3.5455143022389574`*^9, 
   3.5455143274744005`*^9}, {3.5455144795631*^9, 3.545514496187051*^9}, {
   3.5474130159059687`*^9, 3.5474130192443743`*^9}, {3.5633411391116643`*^9, 
   3.5633411391416645`*^9}, {3.6092956312387915`*^9, 3.6092956454088116`*^9}, 
   3.609295983179284*^9, {3.6179415630097237`*^9, 3.6179416177565184`*^9}, {
   3.625776439721858*^9, 3.625776442551862*^9}, {3.6257770553489184`*^9, 
   3.625777064088931*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"a_", "+", 
      RowBox[{"b_.", "*", 
       RowBox[{"csc", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"Csc", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d", "*", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{"a", "+", "b"}], ",", "2"}], "]"}], "*", 
       RowBox[{"Cot", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}]}], "*", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"b", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}]}], "]"}], "*", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"-", "b"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}]}], "]"}], "*", 
    "\[IndentingNewLine]", "    ", 
    RowBox[{"EllipticPi", "[", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"(", 
        RowBox[{"a", "+", "b"}], ")"}]}], ",", 
      RowBox[{"ArcSin", "[", 
       RowBox[{
        RowBox[{"Rt", "[", 
         RowBox[{
          RowBox[{"a", "+", "b"}], ",", "2"}], "]"}], "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Csc", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "b"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "+", "b"}], ")"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, 
   3.4979862281609955`*^9, {3.4979862780186834`*^9, 3.4979862991255207`*^9}, 
   3.4979863964508915`*^9, {3.497990453203616*^9, 3.497990473936053*^9}, 
   3.4986794274067383`*^9, {3.498763920866046*^9, 3.4987639593560996`*^9}, {
   3.4991312222624083`*^9, 3.49913122341241*^9}, {3.5010427775038137`*^9, 
   3.501042778515871*^9}, {3.5030725326890316`*^9, 3.5030725406290426`*^9}, 
   3.5038761341846743`*^9, 3.5043679506879787`*^9, {3.5051850204098253`*^9, 
   3.505185024399053*^9}, 3.5053446405137825`*^9, {3.5053446906538534`*^9, 
   3.505344714143886*^9}, 3.5053519910530176`*^9, 3.508782980727106*^9, {
   3.5098952623037148`*^9, 3.509895264533718*^9}, {3.510267358245805*^9, 
   3.510267363695812*^9}, 3.5102674525359364`*^9, {3.51026851924743*^9, 
   3.510268522147434*^9}, 3.510268653627618*^9, {3.5102687229377155`*^9, 
   3.510268727847722*^9}, 3.510286783854707*^9, {3.510286855412032*^9, 
   3.5102868598424406`*^9}, {3.510286899944911*^9, 3.510286906169322*^9}, 
   3.512054537890772*^9, {3.5120545820108337`*^9, 3.512054602120862*^9}, {
   3.5141374185915504`*^9, 3.514137419971552*^9}, 3.514137457461605*^9, 
   3.5141375596417475`*^9, {3.514137613991824*^9, 3.514137617741829*^9}, {
   3.514141592499395*^9, 3.5141415948793983`*^9}, {3.5141439065226345`*^9, 
   3.5141439068526354`*^9}, 3.516821192057212*^9, {3.5450638743880396`*^9, 
   3.545063878378045*^9}, {3.545507517162196*^9, 3.5455075287422123`*^9}, {
   3.5455075793522835`*^9, 3.5455075831122885`*^9}, {3.5455076938424435`*^9, 
   3.545507722222483*^9}, {3.5455109091057467`*^9, 3.545510917415758*^9}, {
   3.5455133788192043`*^9, 3.5455134331392803`*^9}, {3.545514373810051*^9, 
   3.545514406188903*^9}, {3.545514581199913*^9, 3.5455145866042223`*^9}, {
   3.5456805406867657`*^9, 3.5456805408967657`*^9}, 3.54568587058451*^9, 
   3.5472285141313257`*^9, {3.5474130239087825`*^9, 3.5474130342828007`*^9}, {
   3.5633411391516647`*^9, 3.563341139171664*^9}, 3.563341277301858*^9, 
   3.60929570115889*^9, 3.6092960372793603`*^9, 3.617941720023203*^9, {
   3.625776517828111*^9, 3.6257765582592163`*^9}, {3.625776612251294*^9, 
   3.625776613871296*^9}, {3.6257771176500063`*^9, 3.6257771432430425`*^9}, {
   3.625777228830164*^9, 3.6257772306901665`*^9}, 3.706139814925763*^9, 
   3.7154592940757103`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"3", "/", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450663314814796`*^9, 3.5450663316414795`*^9}, 3.5454973458879566`*^9, 
   3.5455060521401453`*^9, {3.545506909391345*^9, 3.5455069117413483`*^9}, {
   3.5455073827220078`*^9, 3.545507383482009*^9}, 3.545512295397688*^9, {
   3.5455136973196507`*^9, 3.545513697859651*^9}, {3.545514819607549*^9, 
   3.5455148198605633`*^9}, {3.5455154383719406`*^9, 3.545515455622927*^9}, 
   3.5457132677516413`*^9, {3.5474133318373184`*^9, 3.5474133331321206`*^9}, {
   3.548013098919612*^9, 3.548013102479617*^9}, 3.5623444510095067`*^9, 
   3.563341139301665*^9, 3.565372350897473*^9, 3.598398628137854*^9, 
   3.6092964495699377`*^9, {3.609296574380112*^9, 3.6092965745901127`*^9}, 
   3.611795591163412*^9, 3.67570793504191*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9, 
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9, 
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9, 
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9, 
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9, 
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9, 
   3.5017227105524817`*^9}, {3.503880515951973*^9, 3.5038805176835756`*^9}, {
   3.5038805488524303`*^9, 3.5038805721276717`*^9}, {3.503881323994993*^9, 
   3.5038813546802473`*^9}, {3.5049162938617954`*^9, 
   3.5049163006634073`*^9}, {3.5049224814485416`*^9, 
   3.5049225441586294`*^9}, {3.504922716808871*^9, 3.5049227329788933`*^9}, 
   3.505345123294459*^9, {3.5102680075767136`*^9, 3.510268048246771*^9}, {
   3.510286142802781*^9, 3.5102861557352037`*^9}, {3.5102870731364155`*^9, 
   3.5102871063020735`*^9}, {3.5120545232307515`*^9, 3.512054526910756*^9}, {
   3.5141426032508097`*^9, 3.5141426115508213`*^9}, {3.545510955835812*^9, 
   3.5455109595958176`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "z"}]}], ")"}], 
    RowBox[{"3", "/", "2"}]], "\[Equal]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], 
     FractionBox[
      RowBox[{"1", "+", "z"}], 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "z"}]}]]]}], "-", 
    FractionBox[
     RowBox[{"z", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        RowBox[{"2", " ", "a", " ", "b"}], "-", 
        RowBox[{
         SuperscriptBox["b", "2"], " ", "z"}]}], ")"}]}], 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "z"}]}]]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9, 
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.50474982887571*^9, 
   3.504749836455721*^9}, {3.5047498695657673`*^9, 3.5047498727757716`*^9}, {
   3.5072605288062344`*^9, 3.5072605314582396`*^9}, {3.5075717121274023`*^9, 
   3.507571727117423*^9}, {3.50758176808795*^9, 3.5075817732679577`*^9}, {
   3.507583363755458*^9, 3.5075833689814672`*^9}, {3.510507619932962*^9, 
   3.51050763590739*^9}, {3.514253208507701*^9, 3.5142532278877277`*^9}, {
   3.545064994169607*^9, 3.545064995629609*^9}, {3.5455110500959444`*^9, 
   3.5455110500959444`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, 
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9, 
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9, 
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9, 
   3.5062138967830486`*^9}, {3.5062141332678576`*^9, 
   3.5062141507378817`*^9}, {3.5105084879028864`*^9, 3.510508488090087*^9}, {
   3.5130944226480646`*^9, 3.5130944467345066`*^9}, 3.51309510891803*^9, 
   3.514147239737301*^9, {3.514487372506321*^9, 3.5144873727363214`*^9}, {
   3.5165576820821433`*^9, 3.5165576820821433`*^9}, {3.5165582083062663`*^9, 
   3.5165582086338673`*^9}, 3.5165908254196434`*^9, {3.5454161012016726`*^9, 
   3.5454161012016726`*^9}, {3.545430104665186*^9, 3.545430105025186*^9}, {
   3.545505660519597*^9, 3.545505660519597*^9}, {3.5456858910345387`*^9, 
   3.5456858916545396`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
     RowBox[{"3", "/", "2"}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"\[Integral]", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          RowBox[{"b", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "a"}], "-", "b"}], ")"}], 
           RowBox[{"Sec", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], 
         SqrtBox[
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Sec", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "2"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}], 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9, 
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9}, 
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9, 
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9, 
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5098355380753117`*^9, 3.509835661752329*^9}, {3.509835695323588*^9, 
   3.509835698927194*^9}, {3.50983577051572*^9, 3.5098358512614617`*^9}, {
   3.5101827368266892`*^9, 3.510182745344304*^9}, {3.5101829999523516`*^9, 
   3.510183019686386*^9}, {3.5141366663504972`*^9, 3.514136709830558*^9}, {
   3.5141367652306356`*^9, 3.5141367807606573`*^9}, {3.5141369190408506`*^9, 
   3.514137030991008*^9}, {3.5141375883017883`*^9, 3.5141375939117956`*^9}, {
   3.51414390318263*^9, 3.5141439034726305`*^9}, {3.5151675869436274`*^9, 
   3.5151675899036317`*^9}, {3.5455069168013554`*^9, 
   3.5455069411613894`*^9}, {3.5455073910720196`*^9, 3.5455074883421555`*^9}, 
   3.545507687172434*^9, 3.545510899365733*^9, {3.5633411393116646`*^9, 
   3.563341139341665*^9}, {3.609366785326798*^9, 3.609366814466839*^9}, 
   3.6093668842169366`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"3", "/", "2"}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", 
  "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "^", "2"}], "+", 
         RowBox[{"b", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "*", "a"}], "-", "b"}], ")"}], "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}], "]"}], 
    " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Csc", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Csc", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Csc", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, 
   3.4979862281609955`*^9, {3.4979862780186834`*^9, 3.4979862991255207`*^9}, 
   3.4979863964508915`*^9, {3.497990453203616*^9, 3.497990473936053*^9}, 
   3.4986794274067383`*^9, {3.498763920866046*^9, 3.4987639593560996`*^9}, {
   3.4991312222624083`*^9, 3.49913122341241*^9}, {3.5010427775038137`*^9, 
   3.501042778515871*^9}, {3.5030725326890316`*^9, 3.5030725406290426`*^9}, 
   3.5038761341846743`*^9, 3.5043679506879787`*^9, {3.5051850204098253`*^9, 
   3.505185024399053*^9}, 3.5053446405137825`*^9, {3.5053446906538534`*^9, 
   3.505344714143886*^9}, 3.5053519910530176`*^9, 3.508782980727106*^9, {
   3.5098952623037148`*^9, 3.509895264533718*^9}, {3.510267358245805*^9, 
   3.510267363695812*^9}, 3.5102674525359364`*^9, {3.51026851924743*^9, 
   3.510268522147434*^9}, 3.510268653627618*^9, {3.5102687229377155`*^9, 
   3.510268727847722*^9}, 3.510286783854707*^9, {3.510286855412032*^9, 
   3.5102868598424406`*^9}, {3.510286899944911*^9, 3.510286906169322*^9}, 
   3.512054537890772*^9, {3.5120545820108337`*^9, 3.512054602120862*^9}, {
   3.5141374185915504`*^9, 3.514137419971552*^9}, 3.514137457461605*^9, 
   3.5141375596417475`*^9, {3.514137613991824*^9, 3.514137617741829*^9}, {
   3.514141592499395*^9, 3.5141415948793983`*^9}, {3.5141439065226345`*^9, 
   3.5141439068526354`*^9}, 3.516821192057212*^9, {3.5450638743880396`*^9, 
   3.545063878378045*^9}, {3.545507517162196*^9, 3.5455075287422123`*^9}, {
   3.5455075793522835`*^9, 3.5455075831122885`*^9}, {3.5455076938424435`*^9, 
   3.545507722222483*^9}, {3.5455109091057467`*^9, 3.545510917415758*^9}, 
   3.545713297281683*^9, 3.547228514151326*^9, {3.5633411393516645`*^9, 
   3.5633411393816648`*^9}, 3.563341277321858*^9, {3.5634052237924967`*^9, 
   3.563405231832508*^9}, {3.6093669449370213`*^9, 3.609366954567035*^9}, 
   3.706139814955763*^9, 3.7154592941017113`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", ">", "2"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450649786895857`*^9, 3.545064986639597*^9}, {3.5450656208804846`*^9, 
   3.5450656467005205`*^9}, {3.5450660392210703`*^9, 3.5450660402210712`*^9}, 
   3.5454973543779683`*^9, {3.545514824758844*^9, 3.5455148249758563`*^9}, {
   3.54551534727173*^9, 3.5455153489248247`*^9}, {3.545515449462575*^9, 
   3.545515457022007*^9}, {3.5474133352693243`*^9, 3.5474133364081264`*^9}, {
   3.5480130999796133`*^9, 3.5480131038196187`*^9}, {3.548013222939785*^9, 
   3.548013222939785*^9}, {3.5480132540598288`*^9, 3.5480132630398417`*^9}, 
   3.562344451749508*^9, 3.5633411393916645`*^9, 3.5653723521974745`*^9, {
   3.5653724532676163`*^9, 3.56537245589762*^9}, 3.5983986289678555`*^9, 
   3.609296450119938*^9, {3.609296589310133*^9, 3.609296589480133*^9}, {
   3.609296905960576*^9, 3.609296914120588*^9}, 3.6117955916514406`*^9, 
   3.6757079356079426`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Secant recurrence 1b with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "\[Rule]", 
    SuperscriptBox["a", "2"]}], ",", 
   RowBox[{"B", "\[Rule]", 
    RowBox[{"2", "a", " ", "b"}]}], ",", 
   RowBox[{"C", "\[Rule]", 
    SuperscriptBox["b", "2"]}], ",", 
   RowBox[{"m", "\[Rule]", "0"}], ",", 
   RowBox[{"n", "\[Rule]", 
    RowBox[{"n", "-", "2"}]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.5630346364023542`*^9, 3.563034660882388*^9}, {
   3.5630350834229803`*^9, 3.563035093942995*^9}, {3.563036967865618*^9, 
   3.563036986495644*^9}, {3.5630374367662745`*^9, 3.563037445046286*^9}, {
   3.563038586937885*^9, 3.5630385936278944`*^9}, {3.5630388430582438`*^9, 
   3.5630388526682568`*^9}, {3.5633415169821935`*^9, 3.563341519122196*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "2"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.504364584041261*^9, 3.504364585481263*^9}, {
   3.5043646357213335`*^9, 3.5043646359213343`*^9}, {3.5043679570379877`*^9, 
   3.504367958197989*^9}, 3.5049832861833677`*^9, 3.5049833569634666`*^9, {
   3.5051849569721966`*^9, 3.5051849812355843`*^9}, {3.5102679880166864`*^9, 
   3.5102679904066896`*^9}, {3.5102687753677883`*^9, 3.510268782577799*^9}, {
   3.5102868863104877`*^9, 3.5102868869032884`*^9}, {3.5102869285553617`*^9, 
   3.5102869294913635`*^9}, {3.510508500086508*^9, 3.5105085005233088`*^9}, {
   3.5141472920273743`*^9, 3.5141472938373766`*^9}, {3.5144867293554206`*^9, 
   3.5144867301054215`*^9}, {3.516591527740627*^9, 3.5165915282906275`*^9}, {
   3.5419755322916737`*^9, 3.5419755322916737`*^9}, {3.545066172791257*^9, 
   3.5450661735312586`*^9}, {3.5455153534060807`*^9, 
   3.5455153534060807`*^9}, {3.548013227059791*^9, 3.548013227059791*^9}, {
   3.5480132689698496`*^9, 3.5480132689698496`*^9}, {3.565372461277628*^9, 
   3.565372461277628*^9}, {3.6092969221505995`*^9, 3.6092969221505995`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox["b", "2"], " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Sec", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
         RowBox[{"n", "-", "2"}]]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"n", "-", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "-", "3"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "3"], 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], "+", 
       RowBox[{"b", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["b", "2"], 
           RowBox[{"(", 
            RowBox[{"n", "-", "2"}], ")"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["a", "2"], 
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}], 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], "+", 
       RowBox[{"a", " ", 
        SuperscriptBox["b", "2"], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", "n"}], "-", "4"}], ")"}], 
        SuperscriptBox[
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9, 
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9}, 
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9, 
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9, 
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5095562652147536`*^9, 3.5095563252848377`*^9}, {3.50955638387492*^9, 
   3.5095564136949615`*^9}, {3.5095564499650126`*^9, 
   3.5095565745651865`*^9}, {3.509556659575306*^9, 3.5095566816053367`*^9}, {
   3.5095567320554075`*^9, 3.5095567407354193`*^9}, {3.509556895905637*^9, 
   3.5095569251456776`*^9}, {3.510172496160655*^9, 3.510172513227085*^9}, {
   3.5101727774135485`*^9, 3.5101727805647545`*^9}, {3.5101732386595592`*^9, 
   3.51017323937716*^9}, {3.510173272480418*^9, 3.510173288844847*^9}, 
   3.5102680174567275`*^9, {3.510268078456813*^9, 3.5102681014568453`*^9}, {
   3.510268150966914*^9, 3.510268299197122*^9}, {3.510268367137217*^9, 
   3.510268412957281*^9}, {3.5102684572773433`*^9, 3.5102684593973465`*^9}, {
   3.5102863885968122`*^9, 3.510286412808055*^9}, {3.5102864480017166`*^9, 
   3.510286556983508*^9}, {3.5102865980739803`*^9, 3.5102866897553415`*^9}, 
   3.5102867460090404`*^9, {3.5151677847839046`*^9, 3.5151678074939365`*^9}, {
   3.515977699417748*^9, 3.515977709869766*^9}, {3.54551470615606*^9, 
   3.5455147166136584`*^9}, {3.5630385379878163`*^9, 
   3.5630385488378315`*^9}, {3.5633411394016647`*^9, 3.5633411394216647`*^9}, 
   3.5633411761617165`*^9, 3.563341522372201*^9, {3.6269215060648437`*^9, 
   3.626921511384453*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"b", "^", "2"}]}], "*", 
     RowBox[{"Cot", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "2"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Csc", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "3"}], ")"}]}], "*", "\n", "    ", 
        RowBox[{"Simp", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"a", "^", "3"}], "*", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"b", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"b", "^", "2"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"n", "-", "2"}], ")"}]}], "+", 
                RowBox[{"3", "*", 
                 RowBox[{"a", "^", "2"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}]}], ")"}], "*", 
            RowBox[{"Csc", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "*", 
              RowBox[{"b", "^", "2"}], "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", "*", "n"}], "-", "4"}], ")"}]}], ")"}], "*", 
            RowBox[{
             RowBox[{"Csc", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}], 
         "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, 
   3.4979862281609955`*^9, {3.4979862780186834`*^9, 3.4979862991255207`*^9}, 
   3.4979863964508915`*^9, {3.497990453203616*^9, 3.497990473936053*^9}, 
   3.4986794274067383`*^9, {3.498763920866046*^9, 3.4987639593560996`*^9}, {
   3.4991312222624083`*^9, 3.49913122341241*^9}, {3.5010427775038137`*^9, 
   3.501042778515871*^9}, {3.5030725326890316`*^9, 3.5030725406290426`*^9}, 
   3.5038761341846743`*^9, 3.5043679506879787`*^9, {3.5051850204098253`*^9, 
   3.505185024399053*^9}, 3.5053446405137825`*^9, {3.5053446906538534`*^9, 
   3.505344714143886*^9}, 3.5053519910530176`*^9, 3.508782980727106*^9, {
   3.5098952623037148`*^9, 3.509895264533718*^9}, {3.510267358245805*^9, 
   3.510267363695812*^9}, 3.5102674525359364`*^9, {3.51026851924743*^9, 
   3.510268522147434*^9}, 3.510268653627618*^9, {3.5102687229377155`*^9, 
   3.510268727847722*^9}, 3.510286783854707*^9, {3.510286855412032*^9, 
   3.5102868598424406`*^9}, {3.510286899944911*^9, 3.510286906169322*^9}, 
   3.5144098564243727`*^9, 3.514583254360516*^9, {3.5146471295643983`*^9, 
   3.514647165163661*^9}, {3.541975453121563*^9, 3.5419754570915685`*^9}, {
   3.5450655135703344`*^9, 3.545065516310338*^9}, {3.5450657335306425`*^9, 
   3.545065747500662*^9}, {3.5450659139908953`*^9, 3.545065940320932*^9}, {
   3.545515325579489*^9, 3.5455153319868555`*^9}, 3.5472285141713257`*^9, {
   3.5480132733098555`*^9, 3.548013275749859*^9}, {3.5633411394316645`*^9, 
   3.563341139461665*^9}, 3.5633411761717167`*^9, 3.563341277321858*^9, 
   3.563341544732232*^9, {3.5634052449325266`*^9, 3.563405260902549*^9}, 
   3.565372480327654*^9, {3.574027882712452*^9, 3.5740278903824625`*^9}, {
   3.626921553350527*^9, 3.626921587315787*^9}, 3.7061398149757633`*^9, {
   3.715459294115712*^9, 3.715459308702547*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368272971764*^9}, {
   3.5653683065518107`*^9, 3.565368306861811*^9}, {3.5653699874041643`*^9, 
   3.5653699876341643`*^9}, {3.5653707318152065`*^9, 3.565370735935212*^9}, 
   3.5653716846765404`*^9, {3.6092964470599337`*^9, 3.609296526430045*^9}, 
   3.6117955921474686`*^9, 3.675707936142973*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9}, 
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9, 
   3.5454163977893934`*^9}, {3.5454168214081373`*^9, 
   3.5454168256513453`*^9}, {3.5454168857582507`*^9, 
   3.5454169106558943`*^9}, {3.5454170438021283`*^9, 
   3.5454170438021283`*^9}, {3.5454172983477755`*^9, 
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9}, 
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9, 
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9, 
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9, 
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5473978108793373`*^9, 
   3.5473978482564754`*^9}, {3.5474060495403833`*^9, 3.5474060628580017`*^9}, 
   3.5474062367210474`*^9, {3.547406507353829*^9, 3.547406507353829*^9}, {
   3.547410516859702*^9, 3.5474105204999104`*^9}, 3.547410991302042*^9, 
   3.563341139491665*^9, 3.5653726665879145`*^9, {3.5653728675681963`*^9, 
   3.565372879958214*^9}, 3.60929645111994*^9, 3.6117955926034946`*^9, 
   3.675707936668003*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.498070277840313*^9, 
   3.498320585541303*^9, 3.498333075518424*^9, {3.498333998129716*^9, 
   3.498334003529723*^9}, 3.5002620149595757`*^9, {3.5119822460882673`*^9, 
   3.5119822484344015`*^9}, {3.5136162015793257`*^9, 3.513616203076928*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "z"}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", "a"], "-", 
    FractionBox[
     RowBox[{"b", " ", "z"}], 
     RowBox[{"a", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "z"}]}], ")"}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.4979867025546293`*^9, 
   3.4979867054094343`*^9}, {3.5004274880015464`*^9, 3.500427526248734*^9}, {
   3.500577748166791*^9, 3.5005777941712723`*^9}, {3.5005778953918495`*^9, 
   3.5005778978566537`*^9}, {3.500583178653531*^9, 3.500583194347159*^9}, {
   3.5083583642480936`*^9, 3.5083583664580965`*^9}, {3.50843226194516*^9, 
   3.508432308345225*^9}, {3.513616405877284*^9, 3.513616440509345*^9}, {
   3.547406366872431*^9, 3.547406366872431*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4982408115335917`*^9, 
   3.4982408115335917`*^9}, {3.504396309416292*^9, 3.5043963109862947`*^9}, {
   3.504413193550866*^9, 3.5044131942308674`*^9}, {3.5044133130510335`*^9, 
   3.504413313411034*^9}, {3.508348841306343*^9, 3.508348842436345*^9}, {
   3.513095047017943*^9, 3.5130950482379446`*^9}, {3.513377117822339*^9, 
   3.51337711822234*^9}, {3.514597917336328*^9, 3.5145979175763283`*^9}, {
   3.5145980146964645`*^9, 3.5145980151564655`*^9}, {3.5147364697159986`*^9, 
   3.5147364746612077`*^9}, 3.5151812321158094`*^9, {3.5450661504712257`*^9, 
   3.545066151021227*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["x", "a"]}]}]}]}], "-", 
  RowBox[{
   FractionBox["b", "a"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
       FractionBox["x", "a"]}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", "a"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"a", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}], "b"]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975829856013722`*^9, 
   3.4975830009913936`*^9}, {3.4987607563116155`*^9, 3.498760763041625*^9}, {
   3.4987613369824286`*^9, 3.498761351202448*^9}, 3.4991763446448917`*^9, {
   3.499176403316595*^9, 3.4991764071698017`*^9}, 3.499195747838275*^9, {
   3.4991963654829597`*^9, 3.4991963700225677`*^9}, {3.4991968799254637`*^9, 
   3.499196884917472*^9}, {3.5002618027680025`*^9, 3.500261855808096*^9}, {
   3.5002619517014647`*^9, 3.5002619596574783`*^9}, {3.5104552095627546`*^9, 
   3.510455232022786*^9}, {3.5119822688505697`*^9, 3.511982278494121*^9}, {
   3.513616282668268*^9, 3.5136163233531394`*^9}, {3.515181784043579*^9, 
   3.51518180190561*^9}, {3.5483055616578927`*^9, 3.548305568677905*^9}, {
   3.563341139491665*^9, 3.5633411395116653`*^9}, {3.5633415950623026`*^9, 
   3.5633415955823035`*^9}, 3.609286285946618*^9, {3.611077265860863*^9, 
   3.611077308980925*^9}, {3.611077353670989*^9, 3.611077367496009*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "/", "a"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"1", "/", "a"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"a", "/", "b"}], "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, 
   3.4975829614713383`*^9, {3.4982401285726357`*^9, 3.4982401313526397`*^9}, {
   3.4987611327521424`*^9, 3.4987611393821516`*^9}, {3.4987611708821955`*^9, 
   3.498761277792345*^9}, {3.498761354722453*^9, 3.4987613821124916`*^9}, 
   3.4987624269439545`*^9, 3.499176545495245*^9, {3.5002621484802103`*^9, 
   3.500262195607893*^9}, 3.500263694233178*^9, {3.510455241122799*^9, 
   3.510455275992848*^9}, {3.5119822283042507`*^9, 3.511982241072981*^9}, 
   3.51361651162987*^9, {3.5137914366421604`*^9, 3.513791444467608*^9}, {
   3.514736508528867*^9, 3.5147365123976736`*^9}, {3.545583172902095*^9, 
   3.545583183132109*^9}, 3.5474070632542124`*^9, 3.5474071336223116`*^9, 
   3.547407485116807*^9, 3.5474110274521046`*^9, {3.5483055773671207`*^9, 
   3.548305586243536*^9}, 3.563341277351858*^9, {3.5633415981423073`*^9, 
   3.5633415990223083`*^9}, {3.563405276782571*^9, 3.5634052898825893`*^9}, 
   3.565372900988243*^9, {3.609286343225782*^9, 3.609286347855788*^9}, {
   3.6110774778861675`*^9, 3.611077481126172*^9}, 3.706139815005763*^9, 
   3.7154592941237125`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450663314814796`*^9, 3.5450663316414795`*^9}, 3.5454973458879566`*^9, 
   3.5455060521401453`*^9, {3.545506909391345*^9, 3.5455069117413483`*^9}, {
   3.5455073827220078`*^9, 3.545507383482009*^9}, {3.5455122633376427`*^9, 
   3.545512292647684*^9}, {3.5455136996796536`*^9, 3.5455136998196535`*^9}, {
   3.5455142924844*^9, 3.5455142924844*^9}, 3.5455143371719556`*^9, {
   3.5455148165423737`*^9, 3.5455148167423854`*^9}, {3.545515495215192*^9, 
   3.5455155009915223`*^9}, 3.5457131175814314`*^9, {3.5474135364826775`*^9, 
   3.5474135383078814`*^9}, {3.5480135007601748`*^9, 3.548013500970175*^9}, 
   3.563341139581665*^9, {3.5653725127077*^9, 3.5653725129976997`*^9}, {
   3.565372923468274*^9, 3.565372923688275*^9}, 3.609296454719945*^9, 
   3.6117955930855227`*^9, 3.675707937232035*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, 
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9, 
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9, 
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9, 
   3.5062138967830486`*^9}, {3.5062141332678576`*^9, 
   3.5062141507378817`*^9}, {3.5105084879028864`*^9, 3.510508488090087*^9}, {
   3.5130944226480646`*^9, 3.5130944467345066`*^9}, 3.51309510891803*^9, 
   3.514147239737301*^9, {3.514487372506321*^9, 3.5144873727363214`*^9}, {
   3.5165576820821433`*^9, 3.5165576820821433`*^9}, {3.5165582083062663`*^9, 
   3.5165582086338673`*^9}, 3.5165908254196434`*^9, {3.5454161012016726`*^9, 
   3.5454161012016726`*^9}, {3.545430104665186*^9, 3.545430105025186*^9}, {
   3.545505660519597*^9, 3.545505660519597*^9}, {3.5456858910345387`*^9, 
   3.5456858916545396`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox["1", 
    SqrtBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{"a", "+", "b"}]]}], 
       RowBox[{"a", " ", "d", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]]}]}]}], " ", 
   SqrtBox[
    FractionBox[
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}], 
     RowBox[{"a", "+", "b"}]]], " ", 
   SqrtBox[
    RowBox[{"-", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}], 
      RowBox[{"a", "-", "b"}]]}]], " ", 
   RowBox[{"EllipticPi", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", "b"}], "a"], ",", 
     RowBox[{"ArcSin", "[", 
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Sec", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
       SqrtBox[
        RowBox[{"a", "+", "b"}]]], "]"}], ",", 
     FractionBox[
      RowBox[{"a", "+", "b"}], 
      RowBox[{"a", "-", "b"}]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9, 
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9}, 
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9, 
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9, 
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5098355380753117`*^9, 3.509835661752329*^9}, {3.509835695323588*^9, 
   3.509835698927194*^9}, {3.50983577051572*^9, 3.5098358512614617`*^9}, {
   3.5101827368266892`*^9, 3.510182745344304*^9}, {3.5101829999523516`*^9, 
   3.510183019686386*^9}, {3.5141366663504972`*^9, 3.514136709830558*^9}, {
   3.5141367652306356`*^9, 3.5141367807606573`*^9}, {3.5141369190408506`*^9, 
   3.514137030991008*^9}, {3.5141375883017883`*^9, 3.5141375939117956`*^9}, {
   3.51414390318263*^9, 3.5141439034726305`*^9}, {3.5151675869436274`*^9, 
   3.5151675899036317`*^9}, {3.5455069168013554`*^9, 
   3.5455069411613894`*^9}, {3.5455073910720196`*^9, 3.5455074883421555`*^9}, 
   3.545507687172434*^9, 3.545510899365733*^9, 3.545512278107663*^9, {
   3.545513241529012*^9, 3.545513266989048*^9}, {3.5455143022389574`*^9, 
   3.5455143274744005`*^9}, {3.5455144795631*^9, 3.545514496187051*^9}, {
   3.5474130159059687`*^9, 3.5474130192443743`*^9}, {3.5633411391116643`*^9, 
   3.5633411391416645`*^9}, {3.6092956312387915`*^9, 3.6092956454088116`*^9}, 
   3.609295983179284*^9, {3.6092961240194817`*^9, 3.6092961488695164`*^9}, {
   3.6257768997576995`*^9, 3.6257769021077027`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", 
    RowBox[{
     RowBox[{"Rt", "[", 
      RowBox[{
       RowBox[{"a", "+", "b"}], ",", "2"}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"a", "*", "d", "*", 
       RowBox[{"Cot", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}]}], "*", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"b", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "+", "b"}], ")"}]}]}], "]"}], "*", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"-", "b"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "-", "b"}], ")"}]}]}], "]"}], "*", "\n", "    ", 
    RowBox[{"EllipticPi", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "b"}], ")"}], "/", "a"}], ",", 
      RowBox[{"ArcSin", "[", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Csc", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
        RowBox[{"Rt", "[", 
         RowBox[{
          RowBox[{"a", "+", "b"}], ",", "2"}], "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "b"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "-", "b"}], ")"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, 
   3.4979862281609955`*^9, {3.4979862780186834`*^9, 3.4979862991255207`*^9}, 
   3.4979863964508915`*^9, {3.497990453203616*^9, 3.497990473936053*^9}, 
   3.4986794274067383`*^9, {3.498763920866046*^9, 3.4987639593560996`*^9}, {
   3.4991312222624083`*^9, 3.49913122341241*^9}, {3.5010427775038137`*^9, 
   3.501042778515871*^9}, {3.5030725326890316`*^9, 3.5030725406290426`*^9}, 
   3.5038761341846743`*^9, 3.5043679506879787`*^9, {3.5051850204098253`*^9, 
   3.505185024399053*^9}, 3.5053446405137825`*^9, {3.5053446906538534`*^9, 
   3.505344714143886*^9}, 3.5053519910530176`*^9, 3.508782980727106*^9, {
   3.5098952623037148`*^9, 3.509895264533718*^9}, {3.510267358245805*^9, 
   3.510267363695812*^9}, 3.5102674525359364`*^9, {3.51026851924743*^9, 
   3.510268522147434*^9}, 3.510268653627618*^9, {3.5102687229377155`*^9, 
   3.510268727847722*^9}, 3.510286783854707*^9, {3.510286855412032*^9, 
   3.5102868598424406`*^9}, {3.510286899944911*^9, 3.510286906169322*^9}, 
   3.512054537890772*^9, {3.5120545820108337`*^9, 3.512054602120862*^9}, {
   3.5141374185915504`*^9, 3.514137419971552*^9}, 3.514137457461605*^9, 
   3.5141375596417475`*^9, {3.514137613991824*^9, 3.514137617741829*^9}, {
   3.514141592499395*^9, 3.5141415948793983`*^9}, {3.5141439065226345`*^9, 
   3.5141439068526354`*^9}, 3.516821192057212*^9, {3.5450638743880396`*^9, 
   3.545063878378045*^9}, {3.545507517162196*^9, 3.5455075287422123`*^9}, {
   3.5455075793522835`*^9, 3.5455075831122885`*^9}, {3.5455076938424435`*^9, 
   3.545507722222483*^9}, {3.5455109091057467`*^9, 3.545510917415758*^9}, {
   3.5455133788192043`*^9, 3.5455134331392803`*^9}, {3.545514373810051*^9, 
   3.545514406188903*^9}, 3.5457131441114683`*^9, 3.5472285142113256`*^9, {
   3.563341139621665*^9, 3.563341139651665*^9}, 3.5633412774018583`*^9, 
   3.6092963351497774`*^9, {3.625776969337797*^9, 3.625777000287841*^9}, {
   3.625777274394228*^9, 3.6257772775342326`*^9}, 3.7061398150257635`*^9, 
   3.7154592941327133`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450649786895857`*^9, 3.545064986639597*^9}, {3.5450656208804846`*^9, 
   3.5450656208804846`*^9}, {3.5450660359310656`*^9, 3.545066036921067*^9}, 
   3.545497353457967*^9, {3.5455148270769763`*^9, 3.5455148273449917`*^9}, {
   3.545515211839984*^9, 3.5455152139151025`*^9}, {3.5455152847851562`*^9, 
   3.545515286308243*^9}, {3.545515496887287*^9, 3.545515503909689*^9}, {
   3.5474136778813257`*^9, 3.5474136790981283`*^9}, {3.5480136551103907`*^9, 
   3.548013656080392*^9}, {3.548013718590479*^9, 3.548013722850485*^9}, {
   3.5480145949715123`*^9, 3.548014609491533*^9}, 3.5483029790959473`*^9, {
   3.548303054006232*^9, 3.5483030555723214`*^9}, 3.5633411398216653`*^9, {
   3.5983986977379513`*^9, 3.5983986977379513`*^9}, 3.6092964526399417`*^9, {
   3.6092966573102283`*^9, 3.6092966583202295`*^9}, {3.6092969333106146`*^9, 
   3.6092969381806216`*^9}, {3.609465703239896*^9, 3.609465703479896*^9}, {
   3.6094662781507006`*^9, 3.609466280970704*^9}, 3.61179559356955*^9, 
   3.6757079378440704`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Secant recurrence 2b with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "\[Rule]", "1"}], ",", 
   RowBox[{"B", "\[Rule]", "0"}], ",", 
   RowBox[{"C", "\[Rule]", "0"}], ",", 
   RowBox[{"m", "\[Rule]", "0"}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.5630346364023542`*^9, 3.563034660882388*^9}, {
   3.5630350834229803`*^9, 3.563035093942995*^9}, {3.563036967865618*^9, 
   3.563036986495644*^9}, {3.5630374367662745`*^9, 3.563037445046286*^9}, {
   3.563038586937885*^9, 3.5630385936278944`*^9}, {3.5630388430582438`*^9, 
   3.5630388526682568`*^9}, {3.5630392002887435`*^9, 
   3.5630392327687893`*^9}, {3.5630392880588665`*^9, 
   3.5630392887688675`*^9}, {3.563341798742588*^9, 3.5633417999125896`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"2", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, 
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9, 
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9, 
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9, 
   3.5062138967830486`*^9}, {3.5062141332678576`*^9, 
   3.5062141507378817`*^9}, {3.510508496654502*^9, 3.5105084968417025`*^9}, {
   3.5141472473773117`*^9, 3.514147248397313*^9}, {3.5144873754863253`*^9, 
   3.514487376236326*^9}, {3.5165915238106213`*^9, 3.5165915243306217`*^9}, {
   3.541975482241604*^9, 3.541975493521619*^9}, {3.5450661679612503`*^9, 
   3.5450661694412527`*^9}, {3.5455152903604746`*^9, 
   3.5455152903604746`*^9}, {3.5480137365205045`*^9, 
   3.5480137365205045`*^9}, {3.548014623931553*^9, 3.548014623931553*^9}, {
   3.5483030751292934`*^9, 3.5483030751292934`*^9}, {3.5983986887679386`*^9, 
   3.598398693057945*^9}, {3.609296945400632*^9, 3.609296945400632*^9}, {
   3.6094662945007234`*^9, 3.6094662945007234`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["b", "2"], " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Sec", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
          RowBox[{"n", "+", "1"}]]}], 
        RowBox[{"a", " ", "d", " ", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "-", 
           SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       SuperscriptBox["b", "2"]}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "-", 
          SuperscriptBox["b", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], "-", 
       RowBox[{"a", " ", "b", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["b", "2"], 
        RowBox[{"(", 
         RowBox[{"n", "+", "2"}], ")"}], 
        SuperscriptBox[
         RowBox[{"Sec", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.499404301116287*^9, 
   3.49940430323629*^9}, {3.4994048006769867`*^9, 3.4994048025069895`*^9}, {
   3.5003179811489162`*^9, 3.5003179814297166`*^9}, 3.5003181853432746`*^9, {
   3.5003185563630857`*^9, 3.500318557803087*^9}, {3.5013586287231283`*^9, 
   3.5013586400931444`*^9}, 3.5027672052757444`*^9, 3.5035556969716425`*^9, 
   3.5053446414737844`*^9, {3.505344693303857*^9, 3.505344708433878*^9}, 
   3.5053535619252167`*^9, {3.5094747245329013`*^9, 3.509474861672745*^9}, {
   3.510164259570264*^9, 3.510164264265872*^9}, {3.5101644808722525`*^9, 
   3.5101645606039925`*^9}, {3.5101665987113705`*^9, 
   3.5101666055813804`*^9}, {3.5102847826571913`*^9, 
   3.5102848146840477`*^9}, {3.5102848478029056`*^9, 
   3.5102848488793077`*^9}, {3.510284905944208*^9, 3.5102849085962124`*^9}, {
   3.510284996018766*^9, 3.5102850591520767`*^9}, {3.5102850954689407`*^9, 
   3.5102851436262255`*^9}, {3.5102852086315393`*^9, 3.51028520886554*^9}, {
   3.510285564936165*^9, 3.5102855657317667`*^9}, {3.5151677147238064`*^9, 
   3.5151677449038486`*^9}, {3.5159776660180893`*^9, 3.515977673474902*^9}, {
   3.562344333359342*^9, 3.5623443338993425`*^9}, 3.5630393089488955`*^9, {
   3.5633411398216653`*^9, 3.5633411398516655`*^9}, 3.5633411762517166`*^9, 
   3.5633418383026433`*^9, {3.6269216184398413`*^9, 3.6269216246330523`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"Cot", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "d", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "-", 
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "-", 
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Csc", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Simp", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "^", "2"}], "-", 
              RowBox[{"b", "^", "2"}]}], ")"}], "*", 
            RowBox[{"(", 
             RowBox[{"n", "+", "1"}], ")"}]}], "-", 
           RowBox[{"a", "*", "b", "*", 
            RowBox[{"(", 
             RowBox[{"n", "+", "1"}], ")"}], "*", 
            RowBox[{"Csc", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"b", "^", "2"}], "*", 
            RowBox[{"(", 
             RowBox[{"n", "+", "2"}], ")"}], "*", 
            RowBox[{
             RowBox[{"Csc", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}], 
         "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976406000756187`*^9, 
   3.4976407755003276`*^9, {3.497641256215172*^9, 3.4976412598187785`*^9}, 
   3.4976414964243937`*^9, 3.4976416664178925`*^9, 3.497641799704527*^9, {
   3.497641972467231*^9, 3.497641974682435*^9}, 3.497642107953469*^9, {
   3.4976421580451565`*^9, 3.49764215997956*^9}, {3.4979216146361823`*^9, 
   3.4979216448378353`*^9}, 3.4979241751310797`*^9, {3.4979242573432245`*^9, 
   3.497924266984041*^9}, {3.498241439764471*^9, 3.4982414602545*^9}, {
   3.5031146206925497`*^9, 3.503114629912166*^9}, {3.5031577379184756`*^9, 
   3.5031577418808823`*^9}, {3.503158883390085*^9, 3.503158888428894*^9}, 
   3.5053446400137825`*^9, {3.5053446892738514`*^9, 3.505344713643885*^9}, 
   3.505345556345065*^9, 3.508439139200802*^9, {3.5098475120089655`*^9, 
   3.5098475136889677`*^9}, {3.51028568692318*^9, 3.510285690370786*^9}, 
   3.5102857690261245`*^9, {3.5146472453478017`*^9, 3.514647263038233*^9}, {
   3.5146473583388*^9, 3.5146473641108103`*^9}, {3.541975345491412*^9, 
   3.5419753500214186`*^9}, {3.5450654887703*^9, 3.5450654923503046`*^9}, {
   3.545065701830598*^9, 3.5450657229506273`*^9}, {3.545065762600683*^9, 
   3.545065766660689*^9}, {3.5455152513852453`*^9, 3.545515273806528*^9}, 
   3.547228514261326*^9, {3.548013741820512*^9, 3.5480137437505145`*^9}, {
   3.5480146162215424`*^9, 3.5480146172715435`*^9}, 3.5483030774192963`*^9, {
   3.5633411398616657`*^9, 3.5633411398916655`*^9}, 3.563341176271716*^9, 
   3.563341277471858*^9, 3.5633418356626396`*^9, {3.563405402542747*^9, 
   3.563405415762766*^9}, {3.574027933492523*^9, 3.574027939412531*^9}, {
   3.5791981866413813`*^9, 3.5791981917913885`*^9}, {3.59839871110797*^9, 
   3.598398716067977*^9}, 3.60946629911073*^9, {3.6269216436494856`*^9, 
   3.6269216549147053`*^9}, 3.706139815045763*^9, {3.715459294141714*^9, 
   3.715459321561282*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
      RowBox[{
       RowBox[{"2", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9}, 
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9, 
   3.5454163977893934`*^9}, {3.5454168214081373`*^9, 
   3.5454168256513453`*^9}, {3.5454168857582507`*^9, 
   3.5454169106558943`*^9}, {3.5454170438021283`*^9, 
   3.5454170438021283`*^9}, {3.5454172983477755`*^9, 
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9}, 
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9, 
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9, 
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9, 
   3.5455949660641317`*^9}, {3.5456047607340746`*^9, 3.545604778867112*^9}, {
   3.5463018504896545`*^9, 3.5463018551696606`*^9}, 3.5463019071797338`*^9, {
   3.5472330356616583`*^9, 3.547233046141673*^9}, {3.54741371436979*^9, 
   3.5474137145569906`*^9}, {3.547414286852789*^9, 3.547414290815196*^9}, 
   3.5480141158508415`*^9, 3.5633411399016657`*^9, {3.5643419645880446`*^9, 
   3.564341994571297*^9}, {3.5653725299377236`*^9, 3.565372530137724*^9}, {
   3.5653725614677677`*^9, 3.565372587727804*^9}, {3.59839877527806*^9, 
   3.5983987755180607`*^9}, {3.6092967666403813`*^9, 3.609296766850382*^9}, 
   3.6117955943165927`*^9, {3.6237746244118023`*^9, 3.623774626491805*^9}, 
   3.675707881938873*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"2", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4982408115335917`*^9, 
   3.4982408115335917`*^9}, {3.504396309416292*^9, 3.5043963109862947`*^9}, {
   3.504413193550866*^9, 3.5044131942308674`*^9}, {3.5044133130510335`*^9, 
   3.504413313411034*^9}, {3.508348841306343*^9, 3.508348842436345*^9}, {
   3.513095047017943*^9, 3.5130950482379446`*^9}, {3.513377117822339*^9, 
   3.51337711822234*^9}, {3.514597917336328*^9, 3.5145979175763283`*^9}, {
   3.5145980146964645`*^9, 3.5145980151564655`*^9}, {3.5147364697159986`*^9, 
   3.5147364746612077`*^9}, 3.5151812321158094`*^9, {3.5450661504712257`*^9, 
   3.545066151021227*^9}, {3.5653726204678507`*^9, 3.5653726204678507`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9, 
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9, 
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9, 
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9, 
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9, 
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9, 
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9, 
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5454191112425594`*^9, 
   3.545419113769764*^9}, {3.5456047972231617`*^9, 3.545604800429345*^9}, {
   3.546301864979675*^9, 3.5463018668596773`*^9}, {3.563341139911666*^9, 
   3.5633411399216657`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Csc", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", 
      RowBox[{"2", "*", "n"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, 3.50267709922139*^9, {3.502677262251618*^9, 
   3.502677280331643*^9}, 3.5027670673403025`*^9, {3.5030150059333043`*^9, 
   3.5030150148565197`*^9}, {3.503071953798221*^9, 3.5030719623082333`*^9}, {
   3.5035497609313307`*^9, 3.5035497734613485`*^9}, 3.503876194868781*^9, {
   3.504156461196662*^9, 3.5041564626786647`*^9}, 3.505344641373784*^9, {
   3.5053446930538564`*^9, 3.505344714983887*^9}, 3.5053535482551975`*^9, {
   3.5094719943757453`*^9, 3.509471999082014*^9}, {3.5094721711418557`*^9, 
   3.5094721778162374`*^9}, {3.50947240515324*^9, 3.509472413765733*^9}, 
   3.5094733026345735`*^9, {3.509475150960292*^9, 3.5094751544394903`*^9}, {
   3.509501480299224*^9, 3.5095014852600327`*^9}, {3.5095016962152033`*^9, 
   3.5095017075096235`*^9}, 3.5098286293025274`*^9, {3.509828898462904*^9, 
   3.5098289238329396`*^9}, {3.5098337006312838`*^9, 3.509833704827691*^9}, 
   3.5101745819155183`*^9, {3.510174660804857*^9, 3.5101746635348616`*^9}, {
   3.5101749657229924`*^9, 3.510174983897024*^9}, 3.510179441609301*^9, 
   3.510438752973152*^9, 3.511227636250307*^9, 3.5114939922953677`*^9, 
   3.511806385340789*^9, 3.514403488313138*^9, {3.515197880917452*^9, 
   3.5151978814790525`*^9}, {3.515978349796089*^9, 3.5159783519332933`*^9}, 
   3.5166675221732535`*^9, 3.5168206559364614`*^9, 3.5168238870016394`*^9, 
   3.5170754944729843`*^9, {3.517075645023195*^9, 3.5170756457431955`*^9}, 
   3.541090454410923*^9, 3.541090537708269*^9, 3.541090593571967*^9, {
   3.5419774852844076`*^9, 3.541977492824418*^9}, {3.545418900283389*^9, 
   3.5454189017497916`*^9}, {3.545419127232588*^9, 3.54541915136583*^9}, 
   3.545419192393902*^9, {3.5454192425703907`*^9, 3.545419243584392*^9}, {
   3.54542002674397*^9, 3.545420034433981*^9}, {3.5454210176773586`*^9, 
   3.545421021277364*^9}, {3.5454217048903217`*^9, 3.5454217071303253`*^9}, {
   3.5454217644704056`*^9, 3.5454217689004116`*^9}, {3.5455309252556715`*^9, 
   3.5455309319756804`*^9}, {3.5455950324942245`*^9, 
   3.5455950354242287`*^9}, {3.5456048055556383`*^9, 3.545604816504265*^9}, {
   3.5463018832497005`*^9, 3.546301897799721*^9}, {3.5467344456447153`*^9, 
   3.5467344492749233`*^9}, 3.5472285142813263`*^9, {3.54741385115283*^9, 
   3.5474138538828344`*^9}, 3.547414249303523*^9, 3.5480141083008313`*^9, 
   3.5633411399316654`*^9, 3.563341277501858*^9, {3.5634054194127703`*^9, 
   3.5634054232327757`*^9}, 3.5643420127921295`*^9, 3.5653725992578206`*^9, 
   3.567630286774201*^9, 3.7061398150657635`*^9, 3.7123377576036587`*^9, 
   3.7154592941497145`*^9, 3.7155495776662073`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "a", "+", "b", " ", "sec", "(", "e", "+", "f", " ", 
      "x", ")", ")", "^", "n"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{783., 601.8},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.3999998569488525`,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 6445, 101, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[7015, 125, 3319, 54, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[10359, 183, 3827, 65, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[14211, 252, 3569, 63, 74, "Subsubtitle"],
Cell[17783, 317, 233, 3, 48, "Subsubsection"],
Cell[18019, 322, 1689, 41, 60, "Subsubsection"],
Cell[19711, 365, 1271, 22, 48, "Subsubsection"],
Cell[20985, 389, 2232, 46, 82, "Subsubtitle"],
Cell[23220, 437, 771, 11, 48, "Subsubsection"],
Cell[23994, 450, 2132, 52, 145, "Code"],
Cell[26129, 504, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[26255, 511, 3591, 63, 74, "Subsubtitle"],
Cell[29849, 576, 435, 6, 48, "Subsubsection"],
Cell[30287, 584, 464, 7, 34, "Subsubsection"],
Cell[30754, 593, 1941, 34, 36, "Subsubsection"],
Cell[32698, 629, 1249, 22, 36, "Subsubsection"],
Cell[33950, 653, 3391, 75, 92, "Subsubtitle"],
Cell[37344, 730, 771, 11, 48, "Subsubsection"],
Cell[38118, 743, 3445, 83, 180, "Code"],
Cell[41566, 828, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[41704, 836, 4320, 73, 74, "Subsubtitle"],
Cell[46027, 911, 487, 7, 48, "Subsubsection"],
Cell[46517, 920, 544, 8, 34, "Subsubsection"],
Cell[47064, 930, 1845, 31, 36, "Subsubsection"],
Cell[48912, 963, 1298, 23, 36, "Subsubsection"],
Cell[50213, 988, 3434, 74, 90, "Subsubtitle"],
Cell[53650, 1064, 771, 11, 48, "Subsubsection"],
Cell[54424, 1077, 3430, 82, 180, "Code"],
Cell[57857, 1161, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[57983, 1168, 2890, 48, 74, "Subsubtitle"],
Cell[60876, 1218, 509, 7, 48, "Subsubsection"],
Cell[61388, 1227, 377, 5, 34, "Subsubsection"],
Cell[61768, 1234, 3165, 42, 34, "Subsubsection"],
Cell[64936, 1278, 1347, 33, 54, "Subsubsection"],
Cell[66286, 1313, 763, 11, 34, "Subsubsection"],
Cell[67052, 1326, 1364, 28, 82, "Subsubtitle"],
Cell[68419, 1356, 771, 11, 48, "Subsubsection"],
Cell[69193, 1369, 1500, 38, 180, "Code"],
Cell[70696, 1409, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[70822, 1416, 3882, 61, 86, "Subsubtitle"],
Cell[74707, 1479, 4684, 78, 68, "Subsubsection"],
Cell[79394, 1559, 1151, 16, 34, "Subsubsection"],
Cell[80548, 1577, 2369, 47, 86, "Subsubtitle"],
Cell[82920, 1626, 771, 11, 48, "Subsubsection"],
Cell[83694, 1639, 1763, 37, 145, "Code"],
Cell[85460, 1678, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[85586, 1685, 5020, 83, 74, "Subsubtitle"],
Cell[90609, 1770, 389, 5, 48, "Subsubsection"],
Cell[91001, 1777, 1672, 36, 40, "Subsubsection"],
Cell[92676, 1815, 1391, 25, 51, "Subsubsection"],
Cell[94070, 1842, 3301, 65, 86, "Subsubtitle"],
Cell[97374, 1909, 819, 11, 48, "Subsubsection"],
Cell[98196, 1922, 3471, 72, 145, "Code"],
Cell[101670, 1996, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[101796, 2003, 4574, 76, 74, "Subsubtitle"],
Cell[106373, 2081, 1161, 16, 48, "Subsubsection"],
Cell[107537, 2099, 2208, 43, 40, "Subsubsection"],
Cell[109748, 2144, 1494, 22, 34, "Subsubsection"],
Cell[111245, 2168, 1408, 25, 36, "Subsubsection"],
Cell[112656, 2195, 3371, 69, 113, "Subsubtitle"],
Cell[116030, 2266, 771, 11, 48, "Subsubsection"],
Cell[116804, 2279, 3732, 80, 145, "Code"],
Cell[120539, 2361, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[120677, 2369, 4699, 74, 53, "Subsubtitle"],
Cell[125379, 2445, 1876, 26, 48, "Subsubsection"],
Cell[127258, 2473, 1436, 29, 36, "Subsubsection"],
Cell[128697, 2504, 1918, 26, 34, "Subsubsection"],
Cell[130618, 2532, 4146, 76, 74, "Subsubtitle"],
Cell[134767, 2610, 771, 11, 48, "Subsubsection"],
Cell[135541, 2623, 3171, 64, 145, "Code"],
Cell[138715, 2689, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[138841, 2696, 3782, 67, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[142648, 2767, 3852, 70, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[146525, 2841, 3934, 72, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[150484, 2917, 5377, 90, 74, "Subsubtitle"],
Cell[155864, 3009, 437, 6, 48, "Subsubsection"],
Cell[156304, 3017, 539, 7, 34, "Subsubsection"],
Cell[156846, 3026, 2482, 66, 61, "Subsubsection"],
Cell[159331, 3094, 2337, 38, 36, "Subsubsection"],
Cell[161671, 3134, 3183, 64, 95, "Subsubtitle"],
Cell[164857, 3200, 771, 11, 48, "Subsubsection"],
Cell[165631, 3213, 4189, 85, 145, "Code"],
Cell[169823, 3300, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[169949, 3307, 6448, 107, 74, "Subsubtitle"],
Cell[176400, 3416, 2131, 35, 50, "Subsubsection"],
Cell[178534, 3453, 3865, 60, 48, "Subsubsection"],
Cell[182402, 3515, 5337, 108, 160, "Subsubtitle"],
Cell[187742, 3625, 821, 11, 48, "Subsubsection"],
Cell[188566, 3638, 6282, 131, 180, "Code"],
Cell[194851, 3771, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[194989, 3779, 3982, 72, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[198996, 3855, 5980, 99, 95, "Subsubtitle"],
Cell[204979, 3956, 491, 7, 48, "Subsubsection"],
Cell[205473, 3965, 993, 13, 34, "Subsubsection"],
Cell[206469, 3980, 1862, 39, 64, "Subsubsection"],
Cell[208334, 4021, 1650, 28, 36, "Subsubsection"],
Cell[209987, 4051, 3144, 68, 95, "Subsubtitle"],
Cell[213134, 4121, 771, 11, 48, "Subsubsection"],
Cell[213908, 4134, 2780, 68, 180, "Code"],
Cell[216691, 4204, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[216817, 4211, 6362, 106, 74, "Subsubtitle"],
Cell[223182, 4319, 2118, 34, 50, "Subsubsection"],
Cell[225303, 4355, 3802, 59, 48, "Subsubsection"],
Cell[229108, 4416, 5104, 107, 159, "Subsubtitle"],
Cell[234215, 4525, 821, 11, 48, "Subsubsection"],
Cell[235039, 4538, 5867, 128, 180, "Code"],
Cell[240909, 4668, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[241059, 4677, 3959, 71, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[245043, 4752, 5049, 86, 74, "Subsubtitle"],
Cell[250095, 4840, 481, 8, 48, "Subsubsection"],
Cell[250579, 4850, 1872, 46, 55, "Subsubsection"],
Cell[252454, 4898, 2593, 69, 89, "Subsubsection"],
Cell[255050, 4969, 1978, 44, 54, "Subsubsection"],
Cell[257031, 5015, 1961, 36, 48, "Subsubsection"],
Cell[258995, 5053, 6471, 153, 524, "Subsubtitle"],
Cell[265469, 5208, 871, 12, 48, "Subsubsection"],
Cell[266343, 5222, 4487, 102, 180, "Code"],
Cell[270833, 5326, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[270959, 5333, 5977, 99, 74, "Subsubtitle"],
Cell[276939, 5434, 463, 6, 48, "Subsubsection"],
Cell[277405, 5442, 2172, 45, 68, "Subsubsection"],
Cell[279580, 5489, 2379, 42, 48, "Subsubsection"],
Cell[281962, 5533, 5939, 108, 114, "Subsubtitle"],
Cell[287904, 5643, 871, 12, 48, "Subsubsection"],
Cell[288778, 5657, 4640, 99, 145, "Code"],
Cell[293421, 5758, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[293571, 5767, 3912, 70, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[297508, 5841, 3959, 72, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[301492, 5917, 5278, 88, 74, "Subsubtitle"],
Cell[306773, 6007, 2190, 36, 50, "Subsubsection"],
Cell[308966, 6045, 5821, 123, 216, "Subsubtitle"],
Cell[314790, 6170, 771, 11, 48, "Subsubsection"],
Cell[315564, 6183, 5581, 128, 180, "Code"],
Cell[321148, 6313, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[321274, 6320, 5316, 90, 74, "Subsubtitle"],
Cell[326593, 6412, 1876, 26, 48, "Subsubsection"],
Cell[328472, 6440, 1610, 41, 67, "Subsubsection"],
Cell[330085, 6483, 2190, 36, 36, "Subsubsection"],
Cell[332278, 6521, 5012, 102, 100, "Subsubtitle"],
Cell[337293, 6625, 771, 11, 48, "Subsubsection"],
Cell[338067, 6638, 4439, 100, 180, "Code"],
Cell[342509, 6740, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[342635, 6747, 5606, 95, 74, "Subsubtitle"],
Cell[348244, 6844, 2190, 38, 50, "Subsubsection"],
Cell[350437, 6884, 2708, 44, 48, "Subsubsection"],
Cell[353148, 6930, 6084, 128, 236, "Subsubtitle"],
Cell[359235, 7060, 771, 11, 48, "Subsubsection"],
Cell[360009, 7073, 5541, 132, 215, "Code"],
Cell[365553, 7207, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[365691, 7215, 3959, 72, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[369675, 7291, 5903, 98, 86, "Subsubtitle"],
Cell[375581, 7391, 518, 7, 48, "Subsubsection"],
Cell[376102, 7400, 1263, 28, 54, "Subsubsection"],
Cell[377368, 7430, 1612, 28, 36, "Subsubsection"],
Cell[378983, 7460, 3164, 69, 110, "Subsubtitle"],
Cell[382150, 7531, 771, 11, 48, "Subsubsection"],
Cell[382924, 7544, 2513, 58, 145, "Code"],
Cell[385440, 7604, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[385566, 7611, 5354, 90, 95, "Subsubtitle"],
Cell[390923, 7703, 2190, 36, 50, "Subsubsection"],
Cell[393116, 7741, 5364, 109, 218, "Subsubtitle"],
Cell[398483, 7852, 771, 11, 48, "Subsubsection"],
Cell[399257, 7865, 4840, 110, 180, "Code"],
Cell[404100, 7977, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[404226, 7984, 5787, 98, 74, "Subsubtitle"],
Cell[410016, 8084, 2151, 35, 50, "Subsubsection"],
Cell[412170, 8121, 2509, 43, 48, "Subsubsection"],
Cell[414682, 8166, 5785, 126, 258, "Subsubtitle"],
Cell[420470, 8294, 771, 11, 48, "Subsubsection"],
Cell[421244, 8307, 5388, 131, 180, "Code"],
Cell[426635, 8440, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[426785, 8449, 6176, 103, 53, "Subsubtitle"],
Cell[432964, 8554, 1782, 31, 62, "Subsubsection"],
Cell[434749, 8587, 4254, 72, 74, "Subsubtitle"],
Cell[439006, 8661, 771, 11, 48, "Subsubsection"],
Cell[439780, 8674, 5786, 100, 145, "Code"],
Cell[445569, 8776, 89, 2, 48, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)